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Abstract 

Data  and  procedures  and  the  valnea  thejf  amass, 

Higher-order  fanetiono  to  eomhine  and  mix  and  match, 

Objects  with  their  local  state,  the  messages  theg  pass, 

A  property,  a  package,  the  control  point  for  a  catch — 

In  the  Lambda  Order  they  are  all  first-class. 

One  Thing  to  name  them  all,  One  Thing  to  define  them, 

One  Thing  to  place  them  in  environments  and  bind  them. 

In  the  Lambda  Order  they  are  off  first-class. 

This  report  describes  researach  done  at  the  Artificial  Intelligence  Laboratory 
of  the  Massachusetts  Institute  of  Technology  and  the  Computer  Science  De¬ 
partment  of  Indiana  University.  Support  for  the  MIT  research  is  provided  in 
part  by  the  Advanced  Research  Projects  Agency  of  the  Department  of  Defense 
under  Office  of  Naval  Research  contract  N000I4-8O-C-O5O5.  Support  for  the 
Indiana  University  research  is  provided  by  NSF  Grants  NCS  83-04567  and 
NCS  83-03325.  This  report  is  published  at  Indiana  University  as  Computer 
Science  Department  Technical  Report  174,  June  1985. 
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1.0  Brief  history  of  Scheme 

Scheme  is  a  statically  scoped  and  properly  tail-recursive  dialect  of  the 
Lisp  programming  language  invented  by  Guy  Lewis  Steele  Jr  and  Gerald  Jay 
Suasman.  It  was  designed  to  have  an  exceptionally  clear  and  simple  semantics 
and  v»y  few  different  methods  of  expression  formation. 


The  first  description  of  Scheme  was  written  in  1975  [28].  A  Revised  Report 
[24]  a4>peared  in  1078,  which  described  the  evolution  of  the  language  as  its 
MIT  implementation  was  upgraded  to  support  an  innovative  compiler  [21]. 
Three  distinct  projects  began  in  1981  and  1982  to  use  variants  of  Scheme  for 
courses  at  MIT,  Yale,  and  Indiana  University  [11,  14,  4].  An  introductory 
computer  science  textbook  using  Scheme  was  published  in  1984  [1]. 


As  might  be  expected  of  a  language  used  primarily  for  education  and  research, 
Scheme  has  always  evolved  rapidly.  This  was  no  problem  when  Scheme  was 
iised  only  within  MIT,  but  as  Scheme  became  more  widespread  local  subdi¬ 
alects  began  to  diverge  until  students  and  researchers  occasionally  found  it 
difficult  to  understand  code  written  at  other  ntes.  Fifteen  representatives  of 
the  major  implementations  of  Scheme  therefore  met  in  October  1984  to  work 
toward  a  better  and  more  widely  accepted  standard  for  Schemer  This  paper 
reports  their  unanimous  recommendations  augmented  by  committee  work  in 
the  areas  of  arithmetic,  characters,  strings,  and  input/output. 

1 

Scheme  shares  with  Common  Lisp  [23]  the  goal  of  a  core  language  common  to 
several  implementations.  Scheme  differs  from  Common  Lisp  in  its  emphasis 
upon  simplicity  and  function  over  compatibility  with  older  dialects  of  Lisp. 


> 
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1.1  Syntax 

Formal  definitioiis  of  the  lexical  and  ccaitext-free  syntaxes  of  Scheme  will 
be  included  in  a  separate  report. 

Identifiers 

Most  identifiers  allowed  by  other  progranuning  languages  are  also  ac¬ 
ceptable  to  Scheme.  The  precise  rules  for  forming  identifiers  vary  among 
implementationa  of  Scheme,  but  in  all  implementations  a  sequence  of  char¬ 
acters  that  contains  no  special  characters  and  begins  with  a  character  that 
cannot  begin  a  number  is  an  identifier.  Tliere  may  be  other  identifiers  as  well, 
and  in  particular  the  following  are  identifiers: 

♦  -  -1+ 

It  is  guaranteed  that  the  following  characters  cannot  begin  a  number,  so 
identifiers  other  than  the  four  listed  above  should  begin  with  one  of: 

abcdelghljklnnopqrstuvwxyz 
ABCDEFGHIJKLNHOPQRSTUVWXTZ 
1 $%*•/ :<■>?- 

Subsequent  characters  of  the  identifier  should  be  drawn  from: 

abedelghijklnnopqratnvvxyz 
ABCDEFGHlJKLMIOPqiSTUVWZTZ 
0139466789 
!  $%**/ :  <->T  -  _  .  ' 

The  case  in  which  the  letters  of  an  identifier  are  typed  is  immaterial.  For 
example,  Foo  is  the  same  identifier  as  FOO. 

The  following  characters  are  special,  and  should  never  be  used  in  an  identifier: 

)<][><  •  :  *lsii* 

Scheme  deliberately  does  not  specify  whether  the  following  characters  can  be 
used  in  identifiers: 

#  ’  •  .  G\  I 

Rationale:  Some  implementations  might  want  to  use  backslash  (\)  and  vertical 
bar  ( I )  as  in  Common  Lisp.  As  for  the  others  there  are  two  schools  of  thought. 
One  school  argues  that  disallowing  special  characters  in  identifiers  allows  the 
computer  to  catch  more  typing  errors.  The  other  school  agrees  only  for  special 
characters  that  conne  in  pairs,  on  the  grounds  that  errors  involving  only  the 
unpaired  medal  characters  are  easier  to  see. 
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Numbers 


For  a  description  of  the  notations  used  for  numbers,  see  section  II.6. 
Comments 

A  Kmicolon  indicates  the  start  of  a  comment.  The  comment  continues  to 
the  end  of  the  line  on  which  the  semicolon  appears.  Comments  are  invisible 
to  Scheme,  but  the  end  of  the  line  is  visible  as  whitespace.  This  prevents  a 
comment  from  appearing  in  the  middle  of  an  identifier  or  number. 

Other  notations 

Left  and  right  parentheses  are  used  for  grouping  and  to  notate  lists  as 
described  in  section  II.4.  Left  and  right  square  brackets  and  curly  braces  are 
not  used  in  Scheme  right  now  but  are  reserved  for  unspecified  future  uses. 

The  quote  ( ' )  and  backquote  C ' )  characters  are  used  to  indicate  constant  or 
almost-constant  data  as  described  in  section  11. 1.  The  comma  is  used  together 
with  the  backquote,  and  the  atsign  (C)  is  used  together  with  the  comma. 

The  doublequote  character  is  used  to  notate  strings  as  described  in  section 

n.8. 

The  sharp  sign  (#)  is  used  for  a  variety  of  purposes  depending  on  the  chu- 
acter  that  follows  it.  A  sharp  sign  followed  by  a  left  parenthesis  signals  the 
beginning  of  a  vector,  as  described  in  section  11.9.  A  sharp  sign  followed  by  an 
exclamation  point  is  used  to  notate  one  of  the  special  values  ff !  true,  #  liaise, 
and  # !  null.  A  sharp  sign  followed  by  a  backslash  is  used  to  notate  charac¬ 
ters  as  described  in  section  11.7.  A  sharp  sign  followed  by  any  of  a  number  of 
letters  is  used  in  the  notation  for  numbers  as  described  in  section  II.6. 

Context  free  grammar  for  Scheme 

The  following  grammar  is  ambiguous  because  a  <special  lorB>  looks  like 
a  <procedure  call>.  Some  implementations  resolve  the  ambiguity  by  re¬ 
serving  the  identifiers  that  serve  as  keywords  of  special  forms,  while  other 
implementations  allow  the  keyword  meaning  of  an  identifier  to  be  shadowed 
by  lexical  bindings. 
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<expresslon>  ::>  <constant>  I  <ideiitilier>  I 

<special  foni>  I  <procediire  call> 

<eon8tant>  : :  ■  <niiaaral>  |  <string>  I 

(quote  <datuB>)  I  '<datua>  I 
«ltrae  I  fifalae  I  ilnull 

<8peclal  forB>  (<keyword>  <8yntactic  coaponent>  ...) 
<procediire  call>  (<operator>  <operand8>) 

<operator>  <expre88lon> 

<operand8>  : : >  <eBpty>  I  <expre88ioii>  <operand8> 

<datim>  stands  for  any  written  representation  of  a  Scheme  object,  as  de¬ 
scribed  in  the  sections  that  follow.  <identilier>  has  already  been  described 
informally.  <niimeral>  is  described  in  section  11.6,  and  <string>  is  described 
in  section  II.8.  <8pecial  lorB>  stands  for  one  of  the  special  forms  whose  syn¬ 
tax  is  described  in  section  II.  1.  For  uniformity  the  other  kinds  of  expressions 
are  also  described  in  that  section  as  though  they  were  special  forms. 

1.2  Semantics 

A  formal  definition  of  the  semantics  of  Scheme  will  be  included  in  a 
separate  report.  The  detailed  informal  semantics  of  Scheme  is  the  subject  of 
Part  II.  This  section  gives  a  quick  review  of  Scheme’s  major  characteristics. 

Scheme  is  a  statically  scoped  programming  language.  Each  use  of  an  identi¬ 
fier  is  associated  with  a  lexically  apparent  binding  of  that  identifier.  In  this 
respect  Scheme  is  like  Algol  60,  Pascal,  and  C  but  unlike  dynamically  scoped 
languages  such  as  APL  and  traditional  Lisp. 

Scheme  has  latent  as  opposed  to  manifest  types.  Types  are  associated  with 
values  (also  called  objects)  rather  than  with  variables.  (Some  authors  refer  to 
languages  with  latent  types  as  weakly  typed  or  dynamically  typed  languages.) 
Other  languages  with  latent  types  are  APL,  Snobol,  and  other  dialects  of  Lisp. 
Languages  with  manifest  types  (sometimes  referred  to  as  strongly  typed  or 
statically  typed  languages)  include  Algol  60,  Pascal,  and  C. 


All  objects  created  in  the  course  of  a  Scheme  computation,  including  all  pro¬ 
cedures  and  variables,  have  unlimited  extent.  No  Scheme  object  is  ever  de¬ 
stroyed.  The  reason  that  implementations  of  Scheme  do  not  (usually!)  run 
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out  of  storage  is  that  they  are  permitted  to  reclaim  the  storage  occupied  by  an 
object  if  they  can  prove  that  the  object  cannot  possibly  matter  to  any  future 
computation.  Other  languages  in  which  most  objects  have  unlimited  extent 
include  APL  and  other  Lisp  dialects. 

Implementations  of  Scheme  are  required  to  be  properly  tail-recursive.  This 
allows  the  execution  of  an  iterative  process  in  constant  space,  even  if  the 
iterative  process  is  described  by  a  syntactically  recursive  procedure.  Thus 
with  a  tail-recursive  implementation,  iteration  can  be  expressed  using  the 
ordinary  procedure-call  mechanics,  so  that  special  iteration  constructs  are 
useful  only  as  syntactic  sugar. 

Scheme  procedures  are  objects  in  their  own  right.  Procedures  can  be  created 
dynamically,  stored  in  data  structures,  returned  as  results  of  procedures,  and 
so  on.  Other  languages  with  these  properties  include  Common  Lisp  and  ML. 

Arguments  to  Scheme  procedures  are  always  passed  by  value,  which  means 
that  the  actual  argument  expressions  are  evaluated  before  the  procedure  gains 
control,  whether  the  procedure  needs  the  result  of  the  evaluation  or  not.  ML, 
C,  and  APL  are  three  other  languages  that  always  pass  arguments  by  value. 
Lazy  ML  passes  arguments  by  name,  so  that  an  argument  expression  is  eval¬ 
uated  only  if  its  value  is  needed  by  the  procedure. 
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Part  11:  A  catalog  of  Scheme 
n.O  Notational  conventions 

This  part  of  the  report  is  a  catalog  of  the  special  forms  and  procedures 
that  make  up  Scheme.  The  special  forms  are  described  in  section  II.l,  and  the 
procedures  are  described  in  the  following  sections.  Each  section  is  organized 
into  entries,  with  one  entry  (usually)  for  each  special  form  or  procedure.  Each 
entry  begins  with  a  header  line  that  includes  the  name  of  the  special  form  or 
procedure  in  boldface  type  within  a  template  for  the  special  form  or  a  call 
to  the  procedure.  The  names  of  the  arguments  to  a  procedure  are  italicized, 
as  are  the  syntactic  components  of  a  special  form.  A  notation  such  as 

expr  . . . 

indicates  zero  or  more  occurrences  of  expr.  Thus 

exprl  exprt . . . 

indicates  at  least  one  expr.  At  the  right  of  the  header  line  one  of  the  following 
categories  will  appear: 

special  form 
constant 
variable 
procedure 

essential  special  form 
essential  constant 
essential  variable 
essential  procedure 

A  special  form  is  a  syntactic  class  of  expressions,  usually  identified  by  a  key¬ 
word.  A  constant  is  something  that  is  lexically  recognizable  as  a  constant. 
A  variable  is  a  location  in  which  values  (also  called  objects)  can  be  stored. 
An  identifier  may  be  bound  to  a  variable.  Those  variables  that  initially  hold 
procedure  values  are  identified  as  procedures. 

It  is  guaranteed  that  every  implementation  of  Scheme  will  support  the  es¬ 
sential  special  forms,  constants,  variables,  and  procedures.  Implementations 
are  free  to  omit  other  features  of  Scheme  or  to  add  extensions,  provided  the 
extensions  are  not  in  conflict  with  the  language  reported  here. 


Any  Scheme  value  can  be  used  as  a  boolean  expression  for  the  purpose  of  a 
conditional  test.  As  explained  in  section  II.2,  most  values  count  as  true,  but 
a  few — notably  #  I  false — count  as  false.  This  mwual  uses  the  word  “true” 
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to  refer  to  any  Scheme  value  that  counts  as  true  in  a  conditional  expression, 
and  the  word  “false”  to  refer  to  any  Scheme  value  that  counts  as  false. 

When  speaking  of  an  error  condition,  this  manual  uses  the  phrase  “an  error  is 
signalled”  to  indicate  that  implementations  must  detect  and  report  the  error. 
If  the  magic  word  “signalled”  does  not  appear  in  the  discussion  of  an  error, 
then  implementations  are  not  required  to  detect  or  report  the  error,  though 
they  are  encouraged  to  do  so.  An  error  condition  that  implementations  are 
not  required  to  detect  is  usually  referred  to  simply  as  “an  error” . 

For  example,  it  is  an  error  for  a  procedure  to  be  passed  an  argument  that 
the  procedure  is  not  explicitly  specified  to  handle,  even  though  such  domain 
errors  are  seldom  mentioned  in  this  manual.  Implementations  may  extend  a 
procedure’s  domain  of  definition  to  include  other  arguments. 
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11.1.  Special  forms 

Identifiers  have  two  uses  within  Scheme  programs.  When  an  identifier 
appears  within  a  quoted  constant  (see  qnote),  it  is  being  used  as  data  as 
described  in  the  section  on  symbols.  Otherwise  it  is  being  used  as  a  name. 
There  are  two  kinds  of  things  that  an  identifier  can  name  in  Scheme:  special 
forma  and  variables.  A  special  form  is  a  syntactic  class  of  expressions,  and 
an  identifier  that  names  a  special  form  is  called  the  keyword  of  that  special 
form.  A  variable,  on  the  other  hand,  is  a  location  where  a  value  can  be  stored. 
An  identifier  that  names  a  variable  is  said  to  be  bound  to  that  location.  The 
set  of  all  such  bindings  in  effect  at  some  point  in  a  program  is  known  as  the 
environment  in  effect  at  that  point. 

Certain  special  forms  are  used  to  allocate  storage  for  new  variables  and  to 
bind  identifiers  to  those  new  variables.  The  most  fundamental  of  these  binding 
constructs  is  the  lambda  special  form,  because  all  other  binding  constructs  can 
be  explained  in  terms  of  lambda  expressions.  The  other  binding  constructs 
are  the  let,  let*,  letrec,  internal  definition  (see  define),  rec,  named- 
lambda,  and  do  special  forms. 

Like  Algol  or  Pascal,  and  unlike  most  other  dialects  of  Lisp  except  for  Com¬ 
mon  Lisp,  Scheme  is  a  statically  scoped  language  with  block  structure.  To 
each  place  where  an  identifier  is  bound  in  a  program  there  corresponds  a  re¬ 
gion  of  the  program  within  which  the  binding  b  effective.  The  region  varies 
according  to  the  binding  construct  that  estabibhes  the  binding;  if  the  binding 
b  establbhed  by  a  lambda  expression,  for  example,  then  the  region  b  the 
entire  lambda  expression.  Every  use  an  identifier  in  a  variable  reference  or 
assignment  refers  to  the  binding  of  the  identifier  that  established  the  inner¬ 
most  of  the  regions  containing  the  use.  If  there  b  no  binding  of  the  identifier 
whose  region  contains  the  use,  then  the  use  refers  to  the  binding  for  the  iden¬ 
tifier  that  was  in  effect  when  Scheme  started  up,  if  any;  if  there  is  no  binding 
for  the  identifier,  it  b  said  to  be  unbound. 

variable  essential  special  form 

An  expression  consbting  of  an  identifier  that  b  not  the  keyword  of  a  spe¬ 
cial  form  b  a  variable  reference.  The  value  obtained  for  the  variable  reference 
b  the  value  stored  in  the  location  to  which  variable  b  bound.  It  b  an  error 
to  reference  an  unbound  variable. 


-  -'/  lii.  si  k-*  »  - 
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(operator  operandl  ...)  essential  special  form 

A  list  whose  first  element  is  not  the  keyword  of  a  special  form  indicates  a 
procedure  call.  The  operator  and  operand  expressions  are  evaluated  and  the 
resulting  procedure  is  passed  the  resulting  arguments.  In  contrast  to  other 
dialects  of  Lisp  the  order  of  evaluation  is  not  specified,  and  the  operator 
expression  and  the  operand  expressions  are  always  evaluated  with  the  same 
evaluation  rules. 

(♦  3  4)  — >  7 

((If  ilfalae  ♦  •)  3  4)  — >  12 

(quote  datunO  essential  special  form 

*datum  essential  special  form 

Evaluates  to  datum.  This  notation  is  used  to  include  literal  constants  in 
Scheme  code. 

(quote  a)  *->  a 

(quote  *(a  h  c))  t(a  b  c) 

(quote  (♦  1  2))  — >  (♦  1  2) 

(quote  datum)  may  be  abbreviated  as  ’datum.  The  two  notations  are  equiv* 
alent  in  all  respects. 

•a  — >  a 

’•(a  b  c)  — >  #(a  b  c) 

»(♦  1  2)  — >  (♦  1  2) 

'(quote  a)  ••>  (quote  a) 

’ 'a  — >  (quote  a) 

Numeric  constants,  string  constants,  character  constants,  vector  constants, 
and  the  constants  fitrue,  ilfalae,  and  f  fnull  need  not  be  quoted. 


•"abe" 

— > 

■abc" 

"abc" 

— > 

■abc" 

'146032 

— > 

145032 

145032 

— > 

145032 

'iltrue 

— > 

fitrue 

fitrue 

— > 

fitrue 

(lambda  (vari  . . .)  expr)  essential  special  form 

Each  var  must  be  an  identifier.  The  lambda  expression  evaluates  to  a  pro¬ 
cedure  with  formal  argument  list  (varl  . . .)  and  procedure  body  expr.  The 
environment  in  effect  when  the  lambda  expression  was  evaluated  is  remem¬ 
bered  as  part  of  the  procedure.  When  the  procedure  is  later  called  with  some 
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actual  arguments,  the  environment  in  which  the  lambda  expression  was  eval¬ 
uated  will  be  extended  by  binding  the  identifiers  in  the  formal  argument  list 
to  fresh  locations,  the  corresponding  actual  argument  values  will  be  stored  in 
those  locations,  and  ezpr  will  then  be  evaluated  in  the  extended  environment. 
The  result  of  ezpr  will  be  returned  as  the  result  of  the  procedure  call. 

(laabda  (x)  (♦  x  x))  -->  «<PROCEDURE> 

((lanbda  (x)  (+  x  x))  4)  — >  8 

(define  reverse-snbtract 

(lanbda  (x  y)  (-  y  x)))  — >  unspecified 

(reverae-subtract  7  10)  — >  3 

(define  foo 
(let  ((x  4)) 

(lanbda  (y)  (-•-  x  y))))  *■*>  unspecified 

(foo  8)  — >  10 

(lambda  (vsri  ...)  ezpri  ezpr2  ...)  essential  special  form 

Equivalent  to  (lanbda  (.varl  ...)  (begin  exprl  exprt  ...)). 

(lambda  var  exprl  expr2  . . .)  essential  special  form 

Returns  a  procedure  that  when  later  called  with  some  arguments  will 
bind  var  to  a  fresh  location,  convert  the  sequence  of  actual  arguments  into  a 
list,  and  store  that  list  in  the  binding  of  vsr. 

((lanbda  x  x)  3  4  5  6)  —>(3  4  6  6) 

One  last  variation  on  the  formal  argument  list  provides  for  a  so-called  'frest* 
argument.  If  a  space/dot/space  sequence  precedes  the  last  argument  in  the 
formal  argument  list,  then  the  value  stored  in  the  binding  of  the  last  formal 
argument  will  be  a  list  of  the  actual  arguments  left  ov«r  after  all  the  other 
actual  arguments  have  been  matched  up  against  the  formal  argunoents. 
((lanbda  (x  y  .  a)  n)  3  4  6  8)  -->  (6  8) 

(if  condition  consequent  aitemaiive)  essential  special  form 

(if  condMon  consequent)  special  form 

First  evaluates  condition.  If  it  yields  a  true  value  (see  section  II.2),  then 
consequent  is  evaluated  and  its  value  is  returned.  Otherwise  alternative  is 
evaluated  and  its  value  is  returned.  U  no  alternative  is  specified,  then  the  if 
expression  is  evaluated  only  for  its  effect,  and  the  result  of  the  expression  is 
unspecified. 

(if  (>T  3  3)  'yes  'no)  yea 

(if  (>T  a  3)  'yes  'no)  -->  no 

(if  (>T  3  2)  (-  3  a)  (♦  3  2))  — >  1 


-  •  «  Wjfc  W 
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(cond  clauael  elauteg  . . .)  essential  special  form 

Each  clause  must  be  a  list  of  one  or  more  expressions.  The  first  expression 
in  each  clause  is  a  boolean  expression  that  serves  as  the  guard  for  the  clause. 
The  guards  are  evaluated  in  order  until  one  of  them  evaluates  to  a  true  value 
(see  section  n.2).  When  a  guard  evaluates  true,  then  the  remaining  expressions 
in  its  clause  are  evaluated  in  order,  and  the  result  of  the  last  expression  in  the 
selected  clause  is  returned  as  the  result  of  the  entire  expression.  If  the  selected 
clause  contains  only  the  guard,  then  the  value  of  the  guard  is  returned  as  the 
result.  If  all  guards  evaluate  to  false  values,  then  the  result  of  the  conditional 
expression  is  unspecified. 

(cond  ((>?  S  2)  'greater) 

((<?  3  2)  'less))  -->  greater 

The  keyword  or  variable  else  may  be  used  as  a  guard  to  obtain  the  effect  of 
a  guard  that  always  evaluates  true. 

(cond  ((>?  3  3)  'greater) 

(«?  3  3)  'less) 

(else  'equD)  »>  equal 

The  above  forms  for  the  clauses  are  essential.  Some  implementations  support 
yet  another  form  of  clause  such  that 

(cond  (lorsl  ■>  lora2)  . . . ) 

is  equivalent  to 

(let  ((lorsl-result  foml) 

(thunk2  (lanbda  ()  lorB2)) 

(thnnk3  (laaibda  ()  (cond  ...)))) 

(if  loml-resnlt 

((thank2)  foml^result) 

(thunk3))) 

(case  expr  elauscl  elauseg  . . .)  special  form 

Each  clause  is  a  list  whose  first  element  is  a  selector  followed  by  one  or 
more  expressions.  Each  selector  should  be  a  fist  of  values.  The  selectors  are 
not  evaluated.  Instead  ezpr  is  eviJuated  and  its  result  is  compared  against 
successive  selectors  using  the  senv  procedure  until  a  match  is  found.  Then 
the  expressions  in  the  selected  clause  are  evaluated  from  left  to  right  and  the 
result  of  the  last  expression  in  the  clause  is  returned  as  the  result  of  the  case 
expression.  If  no  selector  matches  then  the  result  of  the  case  expression  is 


f- '•  <>, 
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unspecified. 

(case  (*  2  3) 

((2367)  'prine) 

((14080)  'cosposite))  — >  composite 

(case  (ear  '(c  d)) 

((e)  ‘e) 

((b)  ’b))  -->  unspecified 

The  special  keyword  else  may  be  used  as  a  selector  to  obtain  the  effect  of  a 
selector  that  always  matches. 

(case  (car  '(e  d)) 

((a  e  i  o  u)  'vowel) 

((y)  ’y) 

(else  ’consonant))  '->  consonant 

(and  exprl  . . .)  special  form 

Evaluates  the  expn  from  left  to  right,  returning  false  as  soon  as  one 
evaluates  to  a  false  value  (see  section  11.2).  Any  remaining  expressions  are 
not  evaluated.  If  all  the  expressions  evaluate  to  true  values,  the  value  of  the 
last  expression  is  returned. 

(and  (-?  2  2)  (>?  2  D)  — >  #ltrue 

(and  (-?  2  2)  (<?  2  1))  — >  # liaise 

(and  1  2  'e  ’(1  g))  — >  (1  g) 

(or  exprl . . .)  special  form 

Evaluates  the  exprs  from  left  to  right,  returning  the  value  of  the  first  expr 
that  evaluates  to  a  true  value  (see  section  II.2).  Any  remaining  expressions 
are  not  evaluated.  If  all  expressions  evaluate  to  false  values,  false  is  returned, 
(or  (-?  2  2)  (>?  2  1))  — >  #ltrue 

(or  (-?  2  2)  «?  2  1))  — >  #ltrue 

(or  fllalse  fllalse  ilfalse)  >->  fllalse 

(or  (nenq  'b  ’(a  b  c))  (/  3  0))  '->  (b  c) 

(let  ((vari  forml)  ...)  exprl  exprS  ...)  essential  special  form 

Evaluates  the  forma  in  the  current  environment  (in  some  unspecified  or¬ 
der),  binds  the  vers  to  fresh  locations  holding  the  results,  and  then  evaluates 
the  expra  in  the  extended  environment  from  left  to  right,  returning  the  value 
of  the  last  one.  Elach  binding  of  a  var  has  exprl  exprS  ...  as  its  region. 

(let  ((x  2)  (y  3)) 

(*  X  y))  — >  6 
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(let  ((x  2)  (y  3)) 

(let  ((loo  (lubda  (z)  (+  x  y  z))) 
(x  7)) 

(loo  4)))  — > 
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IS 


let  and  letree  give  Scheme  a  block  structure.  The  difference  between  let 
and  letree  is  that  in  a  let  the  forma  are  not  within  the  region  of  the  vars 
being  bound.  See  letree. 


Some  implementations  of  Scheme  permit  a  ‘framed  let*  syntax  in  which 


(let  name  ((twri  forml)  ...)  exprl  eiprt ...) 


is  equivalent  to 

((rec  name  (laabda  (oari  ...)  exprl  exprS  ...  ))  forml  ...) 

(let*  ((varl  formic  ...)  exprl  exprt  ...)  special  form 

Similar  to  let,  but  the  bindings  are  performed  sequentially  from  left  to 
right  and  the  region  of  a  binding  indicated  by  (vsr  form)  is  that  part  of  the 
let*  expression  to  the  right  of  the  binding.  Thus  the  second  binding  is  done 
in  an  environment  in  which  the  first  binding  is  visible,  and  so  on. 

(letree  iivarl  forml")  ,,,) exprl  exprt  ...)  essential  special  form 


Binds  the  van  to  fresh  locations  holding  undefined  values,  evaluates  the 
forma  in  the  resulting  environment  (in  some  unspecified  order),  assigns  to  each 
vsr  the  result  of  the  corresponding  form,  evaluates  the  eq^rs  sequentially  in 
the  resulting  environment,  and  returns  the  value  of  the  last  expr.  Each  binding 
of  a  var  has  the  entire  letree  expression  as  its  region,  making  it  possible  to 
define  mutually  recursive  procedures.  See  let. 

(letree  ((x  2)  (y  3)) 

(letree  ((foo  (laabda  (z)  (*  x  y  z)))  (x  7)) 

(loo  4)))  -->  14 
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(letrec  ((*¥611? 

(laabda  (n) 

(if  (zero?  n) 

•  itme 

(odd?  (-1+  n))))) 

(odd? 

(laabda  (n) 

(if  (zero?  n) 

iffalae 

(eren?  (-!♦  a)))))) 

(even?  88)) 


•  Itme 


One  restriction  on  letrec  is  very  important:  it  must  be  possible  to  evaluate 
each  form  without  referring  to  the  value  of  a  ear.  If  this  restriction  is  violated, 
then  the  effect  is  undefined,  and  an  er'-or  may  be  reported  during  evaluation 
of  the  forma.  The  restriction  is  necessary  because  Scheme  passes  arguments 
by  value  rather  than  by  name.  In  the  most  common  uses  of  letrec,  all  the 
forma  are  lambda  expressions  and  the  restriction  is  satisfied  automatically. 

(rec  var  expr)  special  form 

Equivalent  to  (letrec  ((var  ezpr))  var).  rec  is  useful  for  defining 
self-recursive  procedures. 

(named-lambda  (name  vari  ...)  expr  ...)  special  form 

Equivalent  to  (rec  name  (lambda  (vari  ...)  expr  ...)) 


Rationale:  Some  implementatations  may  find  it  easier  to  provide  good  debug¬ 
ging  information  when  named-lambda  is  used  instead  of  rec. 

(define  var  ea^r)  essential  special  form 

When  typed  at  top  level,  so  that  it  is  not  nested  within  any  other  expres¬ 
sion,  this  form  has  essentially  the  same  effect  as  the  assignment  (set!  var 
expr)  if  var  is  bound.  If  var  is  not  bound,  however,  then  the  define  form  will 
bind  var  before  performing  the  assignment,  whereas  it  would  be  an  error  to 
perform  a  set  I  on  an  unbound  identifier.  The  value  returned  by  a  define 
form  is  not  specified. 


Th«  Rtviaad  lUvised  Report  on  Scheme 


18 


(define  adds  (lanbda  (x)  (■*'  x  3)))  -->  unspecified 

(adds  3)  — >  6 

(define  first  car)  — >  unspecified 

(first  ’(1  2))  — >  1 

The  semantics  just  described  is  essential.  Some  implementations  also  allow 
define  expressions  to  appear  at  the  beginning  of  the  body  of  a  lambda, 
naned-lanbda,  let,  let*,  or  letrec  expression.  Such  expressions  are  known 
as  internal  definitions  as  opposed  to  the  top  level  definitions  described  above. 
The  variable  defined  by  an  internal  definition  is  local  to  the  body  of  the 
lanbda,  naned-lanbda,  let,  let*,  or  letrec  expression.  That  is,  var  is 
bound  rather  than  assigned,  and  the  region  set  up  by  the  binding  is  the  entire 
body  of  the  lambda,  naned-lanbda,  let,  let*,  or  letrec  expression.  For 
example, 

(let  ((x  6)) 

(define  foo  (lanbda  (y)  (bar  x  y))) 

(define  bar  (lanbda  (a  b)  (*  (*  a  b)  a))) 

(foo  (*  X  3)))  — >45 

Internal  definitions  can  always  be  converted  into  an  equivalent  letrec  ex¬ 
pression.  For  example,  the  let  expression  in  the  above  example  is  equivalent 
to 

(let  ((x  6)) 

(letrec  ((foo  (lanbda  (y)  (bar  x  y))) 

(bar  (lanbda  (a  b)  (*  (*  a  b)  a)))) 

(foo  (+  X  3)))) 

(define  ivarO  varl  ...)  ezprl  expri  ...)  special  form 

(define  (form  varl  . . .)  expri  exprt  . . .)  special  form 

The  first  syntax,  where  varO  is  an  identifier,  is  equivalent  to 
(define  varO  (rec  varO  (lanbda  {varl  ...)  expri  expri  ))) 

The  second  syntax,  where  /orm  is  a  list,  is  sometimes  convenient  for  defining 
a  procedure  that  returns  another  procedure  as  its  result.  It  is  equivalent  to 
(define  /orm  (lanbda  {varl  ...)  expri  expri  ..))  . 

(setl  oar  expr)  essential  special  form 

Stores  the  value  of  expr  in  the  location  to  which  var  is  bound,  expr  is 
evaluated  but  var  is  not.  The  result  of  the  setl  expression  is  unspecified. 

(setl  X  4)  — >  unspecified 

(1+  x)  — >  6 
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(begin  ezprl  ezprt  . . .)  essential  special  form 

Evaluates  the  exprs  sequentially  &om  left  to  right  and  returns  the  value 
of  the  last  expr.  Used  to  sequence  aide  effects  such  as  input  and  output, 
(begin  (set!  x  6) 

(1+  x))  — >  6 

Also 

(begin  (display  "4  plus  1  equals  ") 

(display  (!♦  4))) 

prints  4  plus  1  equals  6 

A  number  of  special  forms  such  as  lanbda  and  letrec  implicitly  treat  their 
bodies  as  begin  expressions. 

(sequence  exprl  exprS  . . .)  special  form 

sequence  is  synonymous  with  begin. 

Rationolf.  sequence  was  used  in  the  Abelson  and  Sussman  text,  but  it  should 
not  be  used  In  new  code. 

(do  vartpecx  exit  etmtl  ...)  special  form 

The  do  special  form  is  an  extremely  general  albeit  complex  iteration 
macro.  The  varepees  specify  variables  to  be  bound,  how  they  are  to  be  initial¬ 
ized  at  the  start,  and  how  they  are  to  be  incremented  every  on  every  iteration, 
the  general  form  looks  like: 

(do  ((  vari  iniU  etepD  ...} 

(  test  exprl  . . .) 
etmtl  ...) 

Each  var  must  be  an  identifier  and  each  tnit  and  step  must  be  expressions. 
The  ffift  expressions  are  evaluated  (in  some  unspecified  order),  the  vara  are 
bound  to  fresh  locations,  the  results  of  the  init  expressions  are  stored  in  the 
bindings  of  the  vats,  and  then  the  iteration  phase  begins. 

Each  iteration  begins  by  evaluating  test;  if  the  result  is  false  (see  section  II.2), 
then  the  stmts  are  evaluated  in  order  for  effect,  the  steps  are  evaluated  (in 
some  unspecified  order),  the  results  of  the  step  expressions  are  stored  in  the 
bindings  of  the  vars,  and  the  next  iteration  begins. 

If  test  evaluates  true,  then  the  exprs  are  evaluated  from  left  to  right  and  the 
value  of  the  last  expr  is  returned  as  the  value  of  the  do  expression.  If  no  exprs 
are  present,  then  the  value  of  the  do  expression  is  unspecified. 
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The  region  set  up  by  the  binding  of  a  var  consists  of  the  entire  do  expression 
except  for  the  tntte. 

A  step  may  be  omitted,  in  which  case  the  corresponding  var  is  not  updated. 
When  the  step  is  omitted  the  tnit  may  be  omitted  as  well,  in  which  case  the 
initial  value  is  not  specified. 

(do  ((vec  (nake-vector  6)) 

(1  0  (1+  i))) 

((-?  i  6)  vec) 

(vector-setl  vec  1  i))  -->  #(0  1234) 

(let  ((x  ‘(1  3  6  7  0))) 

(do  ((x  X  (edr  x)) 

(sun  0  (■•'  sun  (car  x)))) 

((null?  x)  sun)))  — >  25 

The  do  special  form  is  essentially  the  same  as  the  do  macro  in  Common 
Lisp.  The  main  difference  is  that  in  Scheme  the  identifier  return  is  not 
bound;  programmers  that  want  to  bind  return  as  in  Common  Lisp  must  do 
so  explicitly  (see  call-«ith*current-continuation). 

*  pattern  special  form 

The  backquote  special  form  is  useful  for  constructing  a  list  structure  when 
most  but  not  all  of  the  desired  structure  is  known  in  advance.  If  no  commas 
appear  withm  the  pattern,  the  result  of  evaluating  ‘pattern  is  equivalent  (in 
the  sense  of  equal?)  to  the  result  of  evaluating  ‘pattern.  U  a  comma  appears 
within  the  pattern,  however,  the  expression  following  the  comma  is  evaluated 
and  its  result  is  inserted  into  the  structure  instead  of  the  comma  and  the 
expression.  If  a  comma  appears  followed  immediately  by  an  at-sign  (C), 
then  the  following  expression  must  evaluate  to  a  list;  the  opening  and  closing 
parentheses  of  the  list  are  then  “stripped  away”  and  the  elements  of  the  list 
are  inserted  in  place  of  the  comma/at-sign/expression  sequence. 

'(a  .(♦  1  2)  .«(aap  1+  '(46  6))  b)  — >  (a  3  5  6  7  b) 
*(((loo  ,(-  10  3))  ,fi(cdr  ’(c))  cons))  -->  (((foo  7)  cons)) 
Scheme  doea  not  have  any  atandard  facility  for  defining  new  apeeitU  forma. 

Rationale:  The  ability  to  define  new  special  forms  creates  numerous  problems. 
All  current  implementations  of  Scheme  have  macro  facilities  that  solve  those 
problems  to  one  degree  or  another,  but  the  solutions  are  quite  different  and 
it  isn’t  clear  at  this  time  which  solution  is  best,  or  indeed  whether  any  of  the 
solutions  are  truly  adequate.  Rather  than  standardize,  we  are  encouraging 
implementations  to  continue  to  experiment  with  different  solutions. 
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The  main  problems  with  traditional  macros  are:  They  must  be  defined  to 
the  system  before  any  code  using  them  is  loaded;  this  is  a  common  source 
of  obscure  bugs.  They  are  usually  global;  macros  can  be  made  to  follow 
lexical  scope  rules  as  in  Ctanmon  Lisp’s  nacrolet,  but  many  people  find 
the  resulting  scope  rules  confusing.  Unless  they  are  written  very  carefully, 
macros  are  vulnerable  to  inadvertant  capture  of  free  variables;  to  get  around 
this,  for  example,  macros  may  have  to  generate  code  in  which  procedure 
values  appear  as  quoted  constants.  There  is  a  similar  problem  with  keywords 
if  the  keywords  of  special  forma  are  not  reserved.  If  keywords  are  reserved, 
then  either  macros  introduce  new  reserved  words,  invalidating  old  code,  or 
else  special  forms  defined  by  the  programmer  do  not  have  the  same  status  as 
special  forms  defined  by  the  system. 
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n.2.  Booleans 

The  standard  boolean  objects  for  truth  and  falsity  are  written  as  # !  true 
and  #  I  false.  What  really  matters,  though,  are  the  objects  that  the  Scheme 
conditional  expressions  (if,  cond,  and,  or,  do)  will  treat  as  though  they  were 
true  or  false.  The  phrase  “a  true  value”  (or  sometimes  just  “true”)  means 
any  object  treated  as  true  by  the  conditional  expressions,  and  the  phrase  “a 
false  value”  (or  “false”)  means  any  object  treated  as  false  by  the  conditional 
expressions.  All  of  the  conditional  expressioxis  are  equivalent  in  that  an  object 
treated  as  false  by  any  one  of  them  is  treated  as  false  by  all  of  them,  and 
likewise  for  true  values. 

Of  all  the  standard  Scheme  values,  only  fifalse  and  the  empty  list  count  as 
false  in  conditional  expressions,  fitme,  purs  (and  therefore  lists),  symbols, 
numbers,  strings,  vectors,  and  procedures  all  count  as  true. 

The  empty  list  counts  as  false  for  historical  reasons  only,  and  programs  should 
not  rely  on  this  because  future  versions  of  Scheme  will  probably  do  away  with 
this  nonsense. 

Programmers  accustomed  to  other  dialects  of  Lisp  should  beware  that  Scheme 
has  already  done  away  with  the  nonsense  that  identifies  the  empty  list  with 
the  symbol  nil. 

#  Ifalse  essential  constant 

#1  false  is  the  boolean  value  for  falsity.  The  fifalse  object  is  self- 
evaluating.  That  is,  it  does  not  need  to  be  quoted  in  programs. 

’fifalse  — >  fifalse 

fifalse  — >  fifalse 

#  Itrue  essential  constant 

f  I  true  is  the  boolean  value  for  truth.  The  f  I  true  object  is  self-evaluating, 
and  does  not  need  to  be  quoted  in  programs. 

(not  obj)  essential  procedure 

Returns  f  Itrue  if  objia  false  and  returns  fifalse  otherwise. 


nil  variable 

t  variable 

As  a  crutch  for  programmers  accustomed  to  other  dialects  of  Lisp,  some 
implementations  provide  variables  nil  and  t  whose  initial  values  are  f  I  null 
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n.3.  Equivalence  predicates 

A  predicate  is  a  procedure  that  always  returns  ff  I  true  or  #  liaise.  Of  the 
equivalence  predicates  described  in  this  section,  eq?  is  the  most  discriminating 
while  equal?  is  the  most  liberal,  eqv?  is  very  slightly  less  discriminating 
than  eq?. 

(eq?  objl  ohjS)  essential  procedure 

Returns  #!true  if  objl  is  identical  in  all  respects  to  obj2,  otherwise  re¬ 
turns  *  liaise.  If  there  is  any  way  at  all  that  a  user  can  distinguish  objl 
and  obj2,  then  eq?  will  return  # liaise.  On  the  other  hand,  it  is  guaranteed 
that  objects  maintain  their  identity  despite  being  fetched  from  or  stored  into 
variables  or  data  structures. 

The  notion  of  identity  used  by  eq?  is  stronger  than  the  notions  of  equivalence 
used  by  the  eqv?  and  equal?  predicates.  The  constants  #  I  true  and  #  liaise 
are  identical  to  themselves  and  are  different  from  everything  else,  except  that 
in  some  implementations  the  empty  list  is  identical  to  # liaise  for  historical 
reasons.  Two  symbols  are  identical  if  they  print  the  same  way  (except  that 
some  implementations  may  have  "uninterned  symbols”  that  violate  this  rule). 
For  structured  objects  such  as  pairs  and  vectors  the  notion  of  sameness  is 
defined  in  terms  of  the  primitive  mutation  procedures  defined  on  those  objects. 
For  example,  two  pairs  are  the  same  if  and  only  if  a  set -car  I  operation  on 
one  changes  the  car  field  of  the  other.  The  rules  for  identity  of  numbers  are 
extremely  implementation-dependent  and  should  not  be  relied  on. 

Generally  speaking,  the  equal?  procedure  should  be  used  to  compare  lists, 
vectors,  and  arrays.  The  char"?  procedure  should  be  used  to  compare  char¬ 
acters,  the  string"?  procedure  should  be  used  to  compare  strings,  and  the 
"?  procedure  should  be  used  to  compare  numbers.  The  eqv?  procedure  is 
just  like  eq?  except  that  it  can  be  used  to  compare  characters  and  exact 
numbers  as  well.  (See  section  II.6  for  a  discussion  of  exact  numbers.) 


(eq?  'a  'a) 

--> 

#ltrue 

(eq?  ’a  'b) 

— > 

«lfalse 

(eq?  ’(a)  ’(a)) 

--> 

unapeeified 

(eq?  "a"  "a") 

--> 

unapeeified 

(eq?  2  2) 

--> 

unapeeified 

(eq?  (cons  'a  ’b)  (cons  ’a 

•b))  -> 

ff liaise 

(let  ((x  (read))) 

(eq?  (cdr  (cons  *b  x))  x)) 


— >  # I true 
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(eqv?  ohjl  objS)  essential  procedure 

eqv?  is  just  like  eq?  except  that  if  ohjl  and  ohjB  are  exact  numbers  then 
eqv?  is  guaranteed  to  return  #!trne  if  ohjl  and  obj2  are  equal  according  to 
the  ■?  procedure. 

(eq?  100000  100000)  — >  unspecified 

(eqv?  100000  100000)  -->  #!tnie 

See  section  II.6  for  a  discussion  of  exact  numbers. 

(equal?  objl  objS)  essential  procedure 

Returns  tltrue  if  objl  and  obj2  are  identical  objects  or  if  they  are  equiv¬ 
alent  numbers,  lists,  characters,  strings,  or  vectors.  Two  objects  are  generally 
considered  equivalent  if  they  print  the  same,  eqnal?  may  fail  to  terminate  if 
its  arguments  are  circular  data  structure. 


(equal?  *a  'a) 

”> 

ffitrue 

(equal?  ’(a)  ’(a)) 

— > 

tltrue 

(equal?  '(a  (b)  c)  *(a  (b)  c)) 

“> 

tltrue 

(equal?  *abc*  "abc") 

— > 

tltrue 

(equal?  2  2) 

— > 

tltrue 

(equal?  (sake-vector  5  ’a) 
(sake-vector  6  ’a)) 

— > 

tltrue 

V  * 


•  V  V 
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n.4.  Pain  and  lists 

Lists  are  Lisp’s — and  therefore  Scheme’s — characteristic  data  structures. 

The  empty  list  is  a  special  object  that  is  written  as  an  (gening  parenthesis 
followed  by  a  closing  parenthesis:  ()  The  empty  list  has  no  elements,  and  its 
length  is  sero.  The  empty  Ust  is  not  a  pair. 

Larger  Usts  are  built  out  of  pairs.  A  pair  (sometimes  called  a  “dotted  pair”) 
is  a  record  structure  with  two  fields  called  the  car  and  cdr  fields  (few  historical 
reasons).  Pairs  are  created  by  the  procedure  named  cons.  The  car  and  cdr 
fields  are  accessed  by  the  procedures  car  and  cdr.  The  car  and  cdr  fields  are 
assigned  by  the  procedures  set-carl  and  set-edri. 

The  moat  general  notation  used  for  Scheme  pairs  is  the  “dotted*  notation 
(ci  .  et)  where  el  is  the  value  of  the  car  field  and  et  is  the  value  of  the 
cdr  field.  For  example  (4  .  6)  is  a  pair  whose  car  is  4  and  whose  cdr  is  5. 

The  dotted  notation  is  not  often  used,  because  more  streamlined  notations 
existfor  the  common  case  where  the  cdr  is  the  empty  list  or  a  pair.  Thusfei  . 
())  is  usually  written  as  (.el),  and  (el  .  (et  .  eS  ))  m  usually  written 
tm  (el  et  .  eS  ).  Usually  these  special  notations  permit  a  structure  to  be 
written  without  any  dotted  pair  notation  at  all.  For  example 

(a  .  (b  .  (c  .  (d  .  (e  .  ()))») 
would  normally  be  written  as  (a  b  c  d  e). 

When  all  the  dots  can  be  made  to  disappear  as  in  the  example  above,  the 
entire  structure  is  called  a  proper  list.  Proper  lists  are  so  common  that  when 
people  speak  of  a  list,  they  usually  mean  a  proper  UfI.  An  inductive  definition: 

•  The  empty  list  is  a  proper  list. 

•  If  plist  is  a  proper  list,  then  any  pair  whose  cdr  is  plist  is  also  a  proper 
list. 

•  There  are  no  other  proper  lists. 

A  proper  list  is  therefore  either  the  empty  list  or  a  pair  from  which  the  empty 
list  can  be  obtained  by  applying  the  cdr  procedure  a  finite  number  of  times. 
Whether  a  given  pair  is  a  proper  list  depends  upon  what  is  stored  in  the  cdr 
field.  When  the  set-cdrl  procedure  is  used,  an  object  can  be  a  proper  list 


! 
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one  moment  and  not  the  next: 


(define  x  '(a  b  c)) 

--> 

unapeeijied 

(define  y  x) 

— > 

unapeeified 

7 

— > 

(a  b  c) 

(set-cdri  X  4) 

--> 

unapeeified 

X 

— > 

(a  .  4) 

(eq?  X  y) 

— > 

tltrue 

y 

— > 

(a  .  4) 

the  other  hand,  will  always  be  a 

pair  object. 

ar 


It  ia  often  convenient  to  speak  of  a  homogeneous  (proper)  list  of  objects  of 
some  particular  data  type,  as  for  example  (1  2  3)  is  a  list  of  integers.  To 
be  more  precise,  suppose  D  is  some  data  type.  (Any  predicate  defines  a  data 
type  consisting  of  those  objects  of  which  the  predicate  is  true.)  Then 

•  The  empty  list  ia  a  list  of  D. 

•  If  pliat  is  a  list  of  D,  then  any  pair  whose  cdr  is  pliat  and  whose  car  is  an 
element  of  the  data  type  D  ia  also  a  list  of  D, 

«  There  are  no  other  lists  of  D. 


(pair?  cijl  essential  procedure 

Returns  fltrue  if  obj  is  a  pair,  otherwise  returns  tifalse. 


(pair?  ’{a  .  b)) 

— >  fitrue 

(pair?  ’(a  b  c)) 

fitme 

(pair?  •()) 

— >  «Ifalse 

(pair?  *f(a  b)) 

— >  fl false 

(cons  objl  objg) 

essential  procedure 

Returns  a  newly  allocated  pair  whose  car  is 

objl  and  whose  cdr  is  obj2. 

The  pair  is  guaranteed  to  be  different  (in  the  sense  of  eq?)  from  every  existing 
object. 

(cons  'a  '()) 

-->  (a) 

(cons  ’(a)  ’(b  c  d)) 

-->  ((a)  be  d) 

(cons  "a"  '(b  c)) 

— >  ("a"  b  c) 

(cons  'a  3) 

">  (a  .  3) 

(cons  '(a  b)  'c) 

">  ((a  b)  .  c) 
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(car  pair)  essential  procedure 

Returns  the  contents  of  the  car  field  of  pair,  pair  must  be  a  pair.  Note 
that  it  is  an  error  to  take  the  car  of  the  empty  list. 


(car  '(a  b  c)) 

(car  ’((a)  b  c  d)) 
(car  •(!  .  2)) 

(car  •()) 


”>  a 
-->  (a) 

">  1 
— >  error 


(edr  pair)  essential  procedure 

Returns  the  contents  of  the  edr  field  of  pair,  pair  must  be  a  pair.  Note 
that  it  is  an  error  to  take  the  edr  of  the  empty  list. 

(edr  *((a)  b  c  d))  — >  (b  c  d) 

(edr  •(!  .  2))  — >  2 

(edr  ’())  — >  error 


(set-car!  pair  obj) 

essential  procedure 

Stores  obj  in  the  car  field  of  pair,  pair  must  be  a  pair.  The  value  returned 

by  set'carl  is  unspecified.  This  procedure  can 
indiscriminately. 

be  very  confusing  if  used 

(set-cdrl  pair  obj) 

essential  procedure 

Stores  obj  in  the  edr  field  of  pair,  pair  must  be  a  pair.  The  value  returned 

by  set-edri  is  unspecified.  This  procedure  can 
indiscriminately. 

be  very  confusing  if  used 

(caar  pair) 

essential  procedure 

(cadr  pair) 

essential  procedure 

(edar  pair) 

essential  procedure 

(eddr  pair) 

essential  procedure 

(caaar  pair) 

essential  procedure 

(caadr  pair) 

essential  procedure 

(cadar  pair) 

essential  procedure 

(caddr  pair) 

essential  procedure 

(edaar  pair) 

essential  procedure 

(edadr  pair) 

essential  procedure 

(eddar  pair) 

essential  procedure 

(edddr  pair) 

essential  procedure 

(caaaar  pair) 

essential  procedure 

(caaadr  pair) 

essential  procedure 

(caadar  pair) 

essential  procedure 
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(caaddr  pair) 
(cadaar  pair) 
(cadadr  pair) 
(caddar  pair) 
(cadddr  pair) 
(cdaaar  pair) 
(cdaadr  pair) 
(cdadar  pair) 
(cdaddr  pair) 
(cddaar  pair) 
(cddadr  pair) 
(cdddar  pair) 
(cddddr  pair) 


essential 

essential 

essential 

essential 

essential 

essential 

essential 

essential 

essential 

essential 

essential 

essential 

essential 


procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 


These  procedures  are  compositions  of  car  and  cdr,  where  for  example 
caddr  could  be  defined  by 

(define  caddr  (lambda  (x)  (car  (cdr  (cdrx))))) 

'  0  essential  constant 

constant 

’  ()  and  •  I  null  are  notations  for  the  empty  list.  The  ff  Inull  notation 
does  not  have  to  be  quoted  in  programs.  The  ()  notation  must  be  quoted  in 
programs,  however,  because  otherwise  it  would  be  a  procedure  call  without  a 
expression  in  the  procedure  position. 

Rationale:  Because  many  current  Schenw  interpreters  deal  with  expressions 
as  list  structures  rather  than  as  character  strings,  they  will  treat  an  unquoted 
0  as  though  it  were  quoted.  It  is  entirely  possible,  however,  that  some 
implementations  of  Scheme  will  be  able  to  detect  an  unquoted  ()  as  an  error. 

(null?  obj)  essential  procedure 

Returns  tltrue  if  obj  is  the  empty  list,  otherwise  returns  tlfalse. 


(list  objl  ...) 

Returns  a  proper  list  of  its  arguments, 
(list  *a  (•»  3  4)  >c) 


essential  procedure 


— >  (a  7  c) 
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(length  plitt)  essential  procedure 

Returns  the  length  of  plist,  which  must  be  a  proper  list. 

(length  ’())  -->  0 

(length  ’(a  b  e))  — >  3 

(length  *(a  (b)  (c  d  e)))  -->  3 

(append  plUtl  plUtS)  essential  procedure 

(append  pUat  . . .)  procedure 

All  pHttB  should  be  proper  lists.  Returns  a  list  consisting  of  the  elements 
of  the  first  pli$t  followed  by  the  elements  of  the  other  plisla. 

(append  ’(x)  '(y))  -->  (x  y) 

(append  ’(a)  ’(b  e  d))  — >  (abed) 

(append  '(a  (b))  *((c)))  ->  (a  (b)  (c)) 

(append!  plut  . . .)  procedure 

Like  append  but  may  side  effect  ail  but  its  last  argument. 

(reverse  plist)  procedure 

plist  must  be  a  proper  list.  Returns  a  list  consisting  of  the  elements  of 
plist  in  reverse  order. 

(reverse  ’(a  b  c))  — >  (e  b  a) 

(reverse  '(a  (b  c)  d  (e  (f))))  -->  ((e  (f))  d  (b  c)  a) 


(Uat-ref  x  n) 

Returns  the  car  of  (list-tail  x  n). 


procedure 


(list-tail  X  n)  procedure 

Returns  the  sublist  of  x  obtained  by  omitting  the  first  n  elements.  Could 
be  defined  by 

(define  list-tall 
(laabda  (x  n) 

(11  (zero?  n) 


(list-tail  (edr  x)  (-  n  1))))) 
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(last-pair  x)  procedure 

Returns  the  last  pair  in  the  nonempty  list  x.  Could  be  defined  by 
(deline  last-pair 
(lambda  (x) 

(11  (pair?  (edr  x)) 

(last -pair  (edr  x)) 
x))) 


(mexnq  obj  pKst)  essential  procedure 

(memv  obj  plist)  essential  procedure 

(member  obj  pliaO  essential  procedure 

Finds  the  first  occurrence  of  obj  in  the  proper  list  plist  and  returns  the 
first  sublist  of  plist  beginning  with  obj.  If  obj  does  not  occur  in  plist,  returns 
#  liaise,  nenq  uses  eq?  to  compare  ofty  with  the  elements  of  plist,  while  memv 
uses  eqv?  and  member  uses  equal?. 


(memq  *a  '(a  b  c)) 

(memq  'b  ' (a  b  c)) 

(memq  'a  '(be  d)) 

(memq  (list  'a)  '(b  (a)  e}) 
(memq  101  '(100  101  102)) 
(memv  101  '(100  101  102)) 
(member  (list  'a)  '(b  (a)  c)) 


-->  (a  b  c) 

— >  (b  c) 

— >  # liaise 
-->  fllalse 
— >  unspecified 
— >  (101  102) 
->  ((a)  c) 


essential  procedure 
essential  procedure 
essential  procedure 


(assq  obj  alist) 

(assv  obj  alist) 

(assoc  obj  alist} 

alist  must  be  a  proper  list  of  pairs.  Finds  the  first  pair  in  alist  whose  car 
field  is  obj  and  returns  that  pair.  If  no  pair  in  alist  has  obj  as  its  car,  returns 
fllalse.  assq  uses  eq?  to  compare  obj  with  the  car  fields  of  the  pairs  in 
alist,  while  assv  uses  eqv?  and  assoc  uses  equal?. 


(assq  'a  '((a  1)  (b  2)  (c  3))) 

--> 

(a  1) 

(assq  'b  '((a  1)  (b  2)  (c  3))) 

--> 

(b  2) 

(assq  'd  ’((a  1)  (b  2)  (c  3))) 
(assq  (list  'a) 

--> 

fllalse 

•(((a))  ((b))  ((c)))) 

--> 

fllalse 

(assq  5  '((2  3)  (5  7)  (11  13))) 

--> 

unspecified 

(assv  5  '((23)  (5  7)  (11  13))) 
(assoc  (list  'a) 

--> 

(6  7) 

'(((a))  ((b))  ((c)))) 

--> 

((a)) 
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tion  marks  in  their  names  because  they  return  useful  values  rather  than  just 
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n.5.  Symbols 

Symbols  are  objects  whose  usefulness  rests  entirely  on  the  fact  that  two 
symbols  are  identical  (in  the  sense  of  eq?)  if  and  only  if  their  names  are  spelled 
the  same  way.  This  is  exactly  the  property  needed  to  represent  identifiers  in 
programs,  and  so  most  implementations  of  Scheme  use  them  internally  for 
that  purpose.  Programmers  may  also  use  symbols  as  they  use  enumerated 
values  in  Pascal. 

The  rules  for  writing  a  symbol  are  the  same  as  the  rules  for  writing  an  identifier 
(see  section  1.2).  As  with  identifiers,  different  implementations  of  Scheme  use 
slightly  different  rules,  but  it  is  always  the  case  that  a  sequence  of  characters 
that  contains  no  special  characters  and  begins  with  a  character  that  cannot 
begin  a  number  is  taken  to  be  a  symbol;  in  addition  ■•-,  -,  !■•■,  and  eire 
symbols. 

The  case  in  which  a  symbol  is  written  is  unimportant.  Some  implementations 
of  Scheme  convert  any  upper  case  letters  to  lower  case,  and  others  convert 
lower  case  to  upper  case. 

It  is  guaranteed  that  any  symbol  that  has  been  read  using  the  read  procedure 
and  subsequently  written  out  using  the  write  procedure  will  read  back  in  as 
the  identical  symbol  (in  the  sense  of  eq?).  The  string->symbol  procedure, 
however,  can  create  symbols  for  which  this  write/read  invariance  may  not  hold 
because  their  names  contain  special  characters  or  letters  in  the  non-standard 
case. 

Rationale:  Some  implementations  of  Lisp  have  a  feature  known  as  “slashifica- 
tion”  in  order  to  guarantee  write/read  invariance  for  all  symbols,  but  histor¬ 
ically  the  most  important  use  of  this  feature  has  been  to  compensate  for  the 
lack  of  a  string  data  type.  Some  implementations  have  "uninterned  symbols” , 
which  defeat  write/read  invariance  even  in  implementations  with  slashifica- 
tion  and  also  generate  exceptions  to  the  rule  that  two  symbols  are  the  same  if 
and  only  if  their  names  are  spelled  the  same.  It  is  questionable  whether  these 
features  are  worth  their  complexity,  so  they  are  not  standard  in  Scheme. 

(symbol?  obj)  essential  procedure 

Returns  #  I  true  if  obj  is  a  symbol,  otherwise  returns  #1  false. 

(syabol?  ’foo)  -->  « I  true 

(synbol?  (car  ’(a  b)))  -->  « I  true 

(synbol?  "bar")  -■->  fifalse 
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(syinbol->8tring  aymbol)  essential  procedure 

Returns  the  name  of  aymbol  as  a  string.  symbol->string  perforins  no 
case  conversion.  See  string- >87Bbol.  The  following  examples  assume  the 
read  procedure  converts  to  lower  case: 


(8yabol->8tring  ’llying-llBh) 

-->  "flying-1 ish" 

(8ynbol->8trlng  ’Martin) 

-->  "martin" 

(syabol->string 

(string- >syabol  "Malvina")) 

-->  "Malvina" 

(8trhig->symbol  string) 

essential  procedure 

Returns  the  symbol  whose  name  is  string.  string->symbol  can  create 
symbols  with  special  characters  or  letters  in  *he  non-standard  case,  but  it  is 
usually  a  bad  idea  to  create  such  symbols  because  in  some  implementations 
of  Scheme  they  cannot  be  read  as  themselves.  See  synbol->string. 

'■ISSISSIppl  — >  nississippi 

(string->syabol  "alSSISSIppi”)  — >  nISSISSIppi 

(eq?  'bltBlt 

(string->synbol  "bltBlt"))  — >  unspecified 

(eq?  'JollyWog 

(string- >syBbol 

(syabol->strlng  ’JollyWog)))  — >  « I true 

(string*? 

"K.  Harper.  M.D." 

(8ynbol->strlng 

(string->syBbol 

"K.  Harper,  M.D.")))  -->  iltme 
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n.6.  Numbers 


Numerical  computation  has  traditionaUy  been  neglected  by  the  Lisp  com¬ 
munity.  Until  Common  Lisp  there  has  been  no  carefully  thought  out  strategy 
for  organizing  numerical  computation,  and  with  the  exception  of  the  M2u:Lisp 
system  there  has  been  little  effort  to  execute  numerical  code  efficiently.  We 
applaud  the  excellent  work  of  the  Common  Lisp  committee  and  we  accept 
many  of  their  recommendations.  In  some  ways  we  simplify  and  generalize 
their  proposals  in  a  manner  consistent  with  the  purposes  of  Scheme. 

Scheme’s  numerical  operations  treat  numbers  as  abstract  data,  as  independent 
of  their  representation  as  is  possible.  Thus,  the  casual  user  should  be  able  to 
write  simple  programs  without  having  to  know  that  the  implementation  may 
use  fixed-point,  fioating-point,  and  perhaps  other  representations  for  his  data. 
Unfortunately,  this  illusion  of  uniformity  can  be  sustained  only  approximately 
-  the  implementation  of  numbers  will  leak  out  of  its  abstraction  whenever  the 
user  must  be  in  control  of  precision,  or  accuracy,  or  when  he  must  construct 
especially  efficient  computations.  Thus  the  language  must  also  provide  escape 
mechanisms  so  that  a  sophisticated  programmer  can  exercise  more  control  over 
the  execution  of  his  code  and  the  representation  of  his  data  when  necessary. 

It  is  important  to  distinguish  between  the  abstract  numbers,  their  machine 
representations,  and  their  written  representations.  We  will  use  mathematical 
words  such  as  NUMBER,  COMPLEX,  REAL,  RATIONAL,  and  INTEGER 
for  properties  of  the  abstract  numbers,  names  such  as  FIXNUM,  BIGNUM, 
RATNUM,  and  FLONUM  for  machine  representations,  and  names  like  INT, 
FIX,  FLO,  SCI,  RAT,  POLAR,  and  REX7T  for  input/output  formats. 

Numbers 

A  Scheme  system  provides  data  of  type  NUMBER,  which  is  the  most 
general  numerical  type  supported  by  that  system.  NUMBER  is  likely  to  be 
a  complicated  union  type  implemented  in  terms  of  FIXNUMS,  BIGNUMS, 
FLONUMS,  and  so  forth,  but  this  should  not  be  apparent  to  a  naive  user. 
What  the  user  should  see  is  that  the  usual  operations  on  numbers  produce 
the  mathematically  expected  results,  within  the  limits  of  the  implementation. 
Thus  if  the  user  divides  the  exact  number  3  by  the  exact  number  2,  he  should 
get  something  like  1.5  (or  the  exact  fraction  3/2).  If  he  adds  that  result  to 
itself,  and  the  implementation  is  good  enough,  he  should  get  an  exact  3. 

Mathematically,  numbers  may  be  arranged  into  a  tower  of  subtypes  with 
projections  and  injections  relating  adjacent  levels  of  the  tower: 


\  r.'.w 
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NUMBER 

COMPLEX 

REAL 

RATIONAL 

INTEGER 

We  impose  a  uniform  rule  of  downward  coercion — a  number  of  one  type  is 
also  of  a  lower  type  if  the  injection  (up)  of  the  projection  (down)  of  a  number 
leaves  the  number  unchanged.  Since  this  tower  is  a  genuine  mathematical 
structure,  Scheme  provides  predicates  and  procedures  to  access  the  tower. 

Not  all  implementations  of  Scheme  must  provide  the  whole  tower,  but  they 
must  implement  a  coherent  subset  consistent  with  both  the  purposes  of  the 
implementation  and  the  spirit  of  the  Scheme  language. 

Exactness 

Numbers  are  either  EXACT  or  INEXACT.  A  number  is  exact  if  it  was 
derived  from  EXACT  numbers  using  only  EXACT  operations.  A  number  is 
INEIXACT  if  it  models  a  quantity  known  only  approximately,  if  it  was  derived 
using  INEXACT  ingredients,  or  if  it  was  derived  using  INEXACT  operations. 
Thus  INEXACTness  is  a  contagious  property  of  a  number.  Some  operations, 
such  as  the  square  root  (of  non*square  numbers)  must  be  INEXACT  because 
of  the  finite  precision  of  our  representations.  Other  operations  are  inexact 
because  of  implementation  requirements.  We  emphasize  that  exactness  is 
independent  of  the  position  of  the  number  on  the  tower.  It  is  perfectly  possible 
to  have  an  INEXACT  INTEGER  or  an  EXACT  REAL;  355/113  may  be  an 
EXACT  RATIONAL  or  it  may  be  an  INEXACT  RATIONAL  approximation 
to  pi,  depending  on  the  application. 

Operationally,  it  is  the  system’s  responsibility  to  combine  EXACT  numbers 
using  exact  methods,  such  as  infinite  precidon  integer  and  rational  arithmetic, 
where  possible.  An  implementation  may  not  be  able  to  do  this  (if  it  does 
not  use  infinite  precision  integers  and  rationals),  but  if  a  number  becomes 
inexact  for  implementation  reasons  there  is  likely  to  be  an  important  error 
condition,  such  as  integer  overflow,  to  be  reported.  Arithmetic  on  INEXACT 
numbers  is  not  so  constrained.  The  system  may  use  floating  point  and  other 
ill-behaved  representation  strategies  for  INEXACT  numbers.  This  is  not  to 
say  that  implementors  need  not  use  the  best  known  algorithms  for  INEXACT 
computations — only  that  approximate  methods  of  high  quality  are  allowed. 
In  a  system  that  cannot  explicitly  distinguish  exact  from  inexact  numbers 
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the  system  must  do  its  best  to  main  tun  precision.  Scheme  systems  must  not 
burden  users  with  numerical  operations  described  in  terms  of  hardwue  and 
operating-system  dependent  representations  such  as  FIXNUM  and  FLONUM, 
however,  because  these  representation  issues  are  hardly  ever  germane  to  the 
user’s  problems. 

We  highly  recommend  that  the  IEEE  32-bit  and  64-bit  floating-point  stan¬ 
dards  be  adopted  for  implementations  that  use  floating-point  representations 
internally.  To  minimize  loss  of  precision  we  adopt  the  following  rules:  If  am 
implementation  uses  sever2d  different  sizes  of  floating-point  formats,  the  re¬ 
sults  of  any  operation  with  a  floating-point  result  must  be  expressed  in  the 
largest  format  used  to  express  any  of  the  floating-point  arguments  to  that 
operation.  It  is  desirable  (but  not  required)  for  potentially  irrational  opera¬ 
tions  such  as  sqrt,  when  applied  to  EXACT  arguments,  to  produce  EXA.CT 
answers  whenever  possible  (for  example  the  square  root  of  an  exact  4  ought 
to  be  an  exact  2).  If  an  EXACT  number  (or  an  INEXA.CT  number  repre¬ 
sented  as  a  FIXNUM,  a  BIGNUM,  or  a  RATNUM)  is  operated  upon  so  as  to 
produce  an  INEXACT  result  (as  by  sqrt),  and  if  the  result  is  represented  as 
a  FLONUM,  then  the  largest  available  FLONUM  format  must  be  used;  but  if 
the  result  is  expressed  as  a  RATNUM  then  the  rational  approximation  must 
have  at  least  as  much  precision  as  the  largest  available  FLONUM. 

Numerical  operations 

Scheme  provides  the  usual  set  of  operations  for  manipulating  numbers.  In 
general,  numerical  operations  require  numerical  arguments.  For  succintness 
we  let  the  following  meta-symbols  range  over  the  indicated  types  of  object  in 
our  descriptions,  and  we  let  these  meta-symbols  specify  the  types  of  the  argu¬ 
ments  to  numeric  operations.  It  is  an  error  for  an  operation  to  be  presented 
with  an  argument  that  it  is  not  specified  to  handle. 


obj 

any  object 

t,  zl,  .  . 

complex,  real  ,  rational,  integer 

X,  zl,  . 

real,  rational,  integer 

?l  ■ 

..  qi,  ... 

rational,  integer 

n,  nl,  . 

. .  ni,  . . . 

integer 

(number?  obj) 
(complex?  obj) 
(real?  obj) 
(rational?  obj) 
(integer?  obj) 


essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 
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These  numerical  type  predicates  can  be  applied  to  any  kind  of  argument. 
They  return  true  if  the  object  is  of  the  named  type.  In  general,  if  a  type 
predicate  is  true  of  a  number  then  all  higher  type  predicates  are  also  true 
of  that  number.  Not  every  system  supports  all  of  these  types;  for  example, 
it  is  entirely  possible  to  have  a  Scheme  system  that  has  only  INTEGERS. 
Nonetheless  every  implementation  of  Scheme  must  have  all  of  these  predicates. 

(zero?  z)  essential  procedure 

(positive?  z)  essential  procedure 

(negative?  x)  essential  procedure 

(odd?  n)  essential  procedure 

(even?  n)  essential  procedure 

(exact?  z)  essential  procedure 

(inexact?  z)  essential  procedure 

These  numerical  predicates  test  a  number  for  a  particular  property,  re¬ 
turning  #ltrue  or  #lfalse. 


(=  zl  z£) 
(=?  zl  z£) 
(<  zi  z£) 

«?  zl  x£) 
(>  zl  x£) 

(>?  zl  z2) 
(<=  zl  x£) 
(<=?  zl  x£) 
(>=  zl  x£) 
(>=?  zl  x£) 


essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 


These  numerical  comparison  predicates  have  redundant  names  (with  and 
without  the  terminal  “?”)  to  make  all  user  populations  happy.  Some  im¬ 
plementations  allow  them  to  take  many  arguments,  as  in  Common  Lisp,  to 
facilitate  range  checks.  These  procedures  return  #!true  if  their  arguments 
are  (respectively);  numerically  equal,  monotonically  increasing,  monotoni- 
cally  decreasing,  monotonically  nondecreasing,  or  monotonically  nonincreas¬ 
ing.  Warning:  On  INEXACT  numbers  the  equality  tests  will  give  unreliable 
results,  and  the  other  numerical  comparisons  will  be  useful  only  heuristically; 
when  in  doubt,  consult  a  numerical  analyst. 


(max  zi  x£) 
(max  zi  x£  ...) 
(ndn  zi  x£) 
(min  zi  x£  ...) 


essential  procedure 
procedure 
essential  procedure 
procedure 
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Returns  the  maximum  or  minimum  of  its  arguments,  respectively. 

(+  zi  z2)  essential  procedure 

(+  zl  .. .)  procedure 

(*  zi  z2)  essential  procedure 

(• 


zi  ...) 


procedure 


These  procedures  return  the  sum  or  product  of  their  arguments. 


(♦  3  4) 
(+  3) 
(♦) 

(*  4) 
(*) 


--> 
--> 
— > 

— > 


7 

3 
0 

4 
1 


essential  procedure 
procedure 
essential  procedure 
procedure 

With  two  or  more  arguments,  these  procedures  return  the  difference  or 
(complex)  quotient  of  their  arguments,  associating  to  the  left.  With  one 
argument,  however,  they  return  the  additive  or  multiplicative  inverse  of  their 
argument. 


(-  zi  zi!) 

(-  zi  z2  ...) 
(/  zi  z2) 

(/  zi  z2  ...) 


(- 

<- 

(- 

(/ 


3  4) 

3  4  6) 
3) 

3  4  6) 


(/  3) 


--> 

--> 

--> 

--> 


-1 

-6 

-3 

3/20 

1/3 


(1+  z)  procedure 

(-1+  z)  procedure 

These  procedures  return  the  result  of  adding  1  to  or  subtracting  1  from 
their  argument. 


essential  procedure 


--> 
— > 


7 

6 


(abs  z) 

Returns  the  magnitude  of  its  argument. 

(abs  -7) 

(abs  -3-^41) 

(quotient  ni  n2') 

(remainder  ni  n2) 

(modulo  ni  n2) 

In  general,  these  are  intended  to  implement  number-theoretic  (integer) 
division:  For  positive  integers  ni  and  na,  if  ns  and  n4  are  integers  such  that 


essential  procedure 
essentied  procedure 
procedure 
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tti  =  nans  +  n4  and  0  <  n4  <  na,  then 


(quotient  ni  nS) 

--> 

nS 

(remainder  ni  n£) 

--> 

n4 

(modulo  ni  n2) 

--> 

n4 

The  value  returned  by  quotient  always  has  the  sign  of  the  product  of  its 
arguments.  Kenalnder  and  nodulo  differ  on  negative  arguments  as  do  the 
Common  Lisp  ren  and  nod  procedures — the  remainder  always  has  the  sign 
of  the  dividend,  the  nodulo  always  has  the  sign  of  the  divisor: 


(modulo  13  4) 

— > 

1 

(remainder  13  4) 

--> 

1 

(nodulo  -13  4) 

--> 

3 

(remainder  -13  4) 

— > 

-1 

(modulo  13  -4) 

--> 

-3 

(remainder  13  -4) 

--> 

1 

(nodulo  -13  -4) 

--> 

-1 

(remainder  -13  -4) 

— > 

-1 

(gcd  ni  . . .)  procedure 

(1cm  nl  . . .)  procedure 

These  procedures  return  the  greatest  common  divisor  or  least  common 
multiple  of  their  arguments.  The  result  is  always  non-negative. 

(gcd  32  -36)  — >  4 

(gcd)  -->  0 

(Icn  32  -36)  — >  288 

(Icn)  — >  1 


(floor  z) 

(ceiling  z) 
(truncate  z) 
(roimd  z) 
(rationalize  z  y) 
(rationalize  z) 


procedure 

procedure 

procedure 

procedure 

procedure 

procedure 


These  procedures  create  integers  and  rationale.  Their  results  are  not 
EXACT — in  fact,  their  results  are  clearly  INEXACT,  though  they  can  be 
made  EXACT  with  an  explicit  exactness  coercion. 

Floor  returns  the  largest  integer  not  larger  than  z.  Ceiling  returns  the 
smallest  mteger  not  smaller  than  z.  Truncate  returns  the  integer  of  maximal 
absolute  value  not  larger  than  the  absolute  value  of  z.  Round  returns  the 
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clonest  integer  to  x,  rounding  to  even  when  z  u  h&Ihvay  between  two  integers. 
With  two  arguments,  rationalize  produces  the  best  rational  approximation 
to  z  within  the  tolerance  specified  by  y.  With  one  argument,  rationalize 
produces  the  best  rational  approximation  to  z,  preserving  all  of  the  precision 
in  its  representation. 


(exp  z) 

(log  z) 

(expt  zl  z2) 
(sqrt  z) 

(sin  z) 

(cos  z) 

(tan  z) 

(asin  z) 
(acos  z) 
(atan  zl  zS) 


procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 


These  procedures  are  part  of  every  implementation  that  supports  real 
numbers.  Their  meanings  conform  with  the  Common  Lisp  standard.  (Imple¬ 
mentors  should  be  careful  of  the  branch  cots  if  complex  numbers  are  allowed.) 


(make-rectangular  zi  xS) 
(make-polar  xS  x4) 
(real-part  z) 

(imag-part  z) 

(magnitude  z) 

(angle  z) 


procedure 

procedure 

procedure 

procedure 

procedure 

procedure 


These  procedures  are  part  of  every  implementation  that  supports  complex 
numbers.  Suppose  Xi,  Xa,  X3,  and  X4  are  real  numbers  and  z  is  a  complex 
number  such  that 

z  =  Xi  -I-  X3I  =  X9  • 

Then  aake-rectangular  and  aake-polar  return  z,  real-part  returns  xi, 
iaag-part  returns  xj,  nagnitude  returns  xg,  and  angle  returns  X4. 


(exact->inexact  z) 
(inexact->exact  z) 


procedure 

procedure 


exact'>inexact  returns  an  INEXACT  representation  of  z,  which  is  a 
fairly  harmless  thing  to  do.  inexact->exact  returns  an  EXACT  represen¬ 
tation  of  z.  Since  the  law  of  "garbage  in,  garbage  out”  remains  in  force, 
lnexact->exact  should  not  be  used  casually. 
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Numerical  Input  and  Output 

Scheme  allows  all  the  traditional  ways  of  writing  numerical  constsmts, 
though  any  particular  implementation  may  support  only  some  of  them.  These 
syntaxes  are  intended  to  be  purely  notational;  any  kind  of  number  may  be 
written  in  any  form  that  the  user  deems  convenient.  Of  course,  writing  1/7  as 
a  limited-precision  decimal  fraction  will  not  express  the  number  exactly,  but 
this  approximate  form  of  expression  may  be  just  what  the  user  wants  to  see. 


Scheme  numbers  are  written  according  to  the  grammar  described  below.  In 
that  description,  x*  means  aero  or  more  occurrences  of  x.  Spaces  never  appear 
inside  a  number,  so  all  spaces  in  the  grammar  are  for  legibility.  <empty>  stands 
for  the  empty  string. 


bit 

— > 

0  1 

1 

oct 

— > 

0  1 

1 

1 

2  13  1 

4  1 

6  16  17 

dit 

— > 

oct 

1 

S 

1  0 

hit 

— > 

dit 

1 

a 

1  b  1  c 

1  d 

1  e  1  f 

1 

A 

1  B  1  C 

1  D 

1  E  1  F 

radix2  — >  tb  t  fB 
radixS  — >  to  I  *0 
radlxlO  -->  <eBpty>  |  *d  i  *D 
radlxld  -*>  tx  I  #Z 

exactness  — >  <enpty>  |  fi  I  ffl  I  ffe  I  ffE 

precision  — >  <eBpty>  |  ffs  I  *S  I  *1  I  #L 


prelix2 


— >  radix2  exactness  precision 
I  radix2  precision  exactness 
I  exactness  radix2  precision 
I  exactness  precision  radix2 
I  precision  radix2  exactness 
I  precision  exactness  radix2 


prelixS 


-->  radlxB  exactness  precision 
I  radixS  precision  exactness 
I  exactness  radixS  precision 
I  exactness  precision  radixS 
I  precision  radixS  exactness 
I  precision  exactness  radixS 


The  Revised  Revised  Report  on  Scheme 


4S 


prelixlO  — >  radixlO  exactness  precision 
I  radixlO  precision  exactness 
I  exactness  radixlO  precision 
I  exactness  precision  radixlO 
I  precision  radixlO  exactness 
I  precision  exactness  radixlO 


prelixlO 


radixlO  exactness  precision 
radixlO  precision  exactness 
exactness  radixlO  precision 
exactness  precision  radixlO 
precision  radixlO  exactness 
precision  exactness  radixlO 


sign  — >  <empty>  I  ♦  I  - 

snlllx  — >  <eBpt7>  |  e  sign  dit  dit*  |  E  sign  dit  dit* 
nreal  — >  prellx2  bit  bit*  #•  suffix 

I  prefixS  bit  bit*  #*  /  bit  bit*  #*  suffix 
i  prefix2  .  bit  bit*  #*  suffix 
I  prefix2  bit  bit*  .  bit*  #*  suffix 
I  prefix2  bit  bit*  #*  .  #*  suffix 

I  preflxO  oct  oct*  **  suffix 
I  preflxO  oct  oct*  #*  /  oct  oct*  #*  suffix 
I  prefixO  .  oct  oct*  #*  suffix 
I  prefixO  oct  oct*  .  oct*  #*  suffix 
I  prefixO  oct  oct*  **  .  #*  suffix 

I  prefixlO  dit  dit*  ff*  suffix 
I  prefixlO  dit  dit*  #*  /  dit  dit*  #*  suffix 
I  prefixlO  .  dit  dit*  **  suffix 
I  prefixlO  dit  dit*  .  dit*  #*  suffix 
I  prefixlO  dit  dit*  #*  .  #*  suffix 

I  prefixlO  hit  hit*  #*  suffix 
I  prefixlO  hit  hit*  #*  /  hit  hit*  «*  suffix 
I  prefixlO  .  hit  hit*  #*  suffix 
I  prefixlO  hit  hit*  .  hit*  #*  suffix 
I  prefixlO  hit  hit*  **  .  ff*  suffix 
real  sign  ureal 

number  -->  real  I  real  *  ureal  i  I  real  -  ureal  i 

I  real  C  real 


The  conventions  used  to  print  a  number  can  be  specified  by  a  format,  as 
described  later  in  this  section.  The  system  provides  a  procedure,  number- 


Tk«  lUviaad  lUriaad  Report  on  Schomo 


44 


>strl]if ,  that  takes  a  number  and  a  format  and  returns  as  a  string  the  printed 
expression  of  the  given  number  in  the  given  format. 

(nimiber->8triiig  number  format)  procedure 

This  procedure  will  mostly  be  used  by  sophisticated  users  and  in  system 
programs.  In  general,  a  naive  user  will  need  to  know  nothing  about  the 
formats  because  the  system  printer  will  have  reasonable  default  formats  for 
all  types  of  NUMBERS.  The  system  reader  will  construct  reasonable  default 
numerical  types  for  numbers  expressed  in  each  of  the  formats  it  recognizes. 
If  a  user  needs  control  of  the  coercion  from  strings  to  numbers  he  will  use 
string-*>nuaber,  which  takes  a  string,  an  exactness,  and  a  radix  and  produces 
a  number  of  the  maximally  precise  applicable  type  expressed  by  the  given 
string. 

(8tring->nuznber  atring  exaetneaa  radix)  procedure 

The  exaetneaa  is  a  symbol,  either  E  (or  EXACT)  or  1  (or  INEXACT).  The 
radix  is  also  a  symbol:  B  (or  BINARY),  0  (or  OCTAL),  D  (or  DECIMAL),  and  X 
(or  HEXADECIMAL).  Returns  a  number  of  the  maximally  precise  representation 
expressed  by  the  given  string.  It  is  an  error  if  string  does  not  express  a  number 
according  to  the  grammar  presented  above. 

Formats 

Formats  may  have  parameters.  For  example,  the  (SCI  5  2)  format  spec¬ 
ifies  that  a  number  is  to  be  expressed  in  Fortran  scientific  format  with  5 
significant  places  and  two  places  after  the  radix  point. 

In  the  following  examples,  the  comment  shows  the  format  that  was  used  to 
produce  the  output  shown: 

123  ^123  -123 

123450780012345678001234567 
355/113  4355/113  -355/113 

4123.45  -123.45 

3.14150265358070 
3.14150205358070 
123.450 
-123.45e-l 

123e3  123e-3  -123e-3 

-1421 

1.261.570706 


(int)  ;  a  big  one! 
(rat) 

(fix  2) 

(fix  14) 

(flo  15) 

(fio6) 

(sci  5  2) 

(sci  3  0) 

(rect  (int)  (int)) 
(polar  (fix  1)  (flo  7)) 
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A  numerical  constant  may  be  specified  with  an  explicit  radix  by  a  prefix. 
The  prefixes  are:  «B  (binary),  *0  (octal),  «D  (decimal),  «X  (hex).  A  format 
may  specify  that  a  number  should  be  expressed  in  a  puticular  radix.  The 
radix  prefix  may  also  be  suppressed.  For  example,  one  may  express  a  complex 
number  in  polar  form  with  the  magnitude  in  octal  and  the  angle  in  decimal 
as  follows: 

«ol.2C»dl. 570706327  ;  (polar  (fio  2  (radix  o))  (flo  (radix  d))) 

#ol  .261 . 570706327  ;  (polar  (flo  2  (radix  o))  (flo  (radix  d  s))) 

A  numerical  constant  may  be  specified  to  be  either  EXACT  or  INEXACT  by 
a  prefix.  The  prefixes  are:  #1  (inexact),  •£  (exact).  An  exactness  prefix  may 
appear  before  or  after  any  radix  prefix  that  is  used.  A  format  may  specify 
that  a  number  should  be  expressed  with  an  explicit  exactness  prefix,  or  it  may 
force  the  exactness  to  be  suppressed.  For  example,  the  following  are  ways  to 
output  an  inexact  value  for  pi: 

«i356/113  ;  (rat  (exactness)) 

355/113  ;  (rat  (exactness  s)) 

«i3 . 1416  :  (fix  4  (exactness)) 

An  attempt  to  produce  more  digits  than  are  available  in  the  internal  machine 
representation  of  a  number  will  be  marked  with  a  ”#”  filling  the  extra  digits. 
This  is  not  a  statement  that  the  implementation  knows  or  keeps  track  of  the 
significance  of  a  number,  just  that  the  machine  will  flag  attempts  to  produce 
20  digits  of  a  number  that  has  only  15  digits  of  machine  representation: 

3 . 14158265358070#****  ;  (flo  20  (exactness  s)) 

In  systems  with  both  single  and  double  precision  FLONUMs  we  may  want 
to  specify  which  size  we  want  to  use  to  represent  a  constant  internally.  For 
example,  we  may  want  a  constant  that  has  the  value  of  pi  rounded  to  the 
single  precision  length,  or  we  might  want  a  long  number  that  has  the  value 
6/10.  In  either  case,  we  are  specifying  an  explicit  way  to  represent  an  INEX¬ 
ACT  number.  For  this  purpose,  we  may  express  a  number  with  a  prefix  that 
indicates  short  or  long  FLONUM  representation: 

«83 . 14150266358070  ;  Round  to  short  -  3.141593 

•L.O  ;  Extend  to  long  -  .600000000000000 

Details  of  formats 

The  format  of  a  number  is  a  list  beginning  with  a  format  descriptor, 
which  is  a  symbol  such  as  SCI.  Following  the  descriptor  are  parameters  used 
by  that  descriptor,  such  as  the  number  of  significant  digits  to  be  used.  Default 
values  are  supplied  for  any  parameters  that  are  omitted.  Modifiers  may  appear 


-  •  *^*^v*s  O 


Th«  RtvuM  lUviMd  Raport  on  Schamo 


46 


next,  euch  as  the  RADIX  and  EXACTNESS  descriptors  described  below,  which 
themselves  take  parameters.  The  format  descriptors  are: 

(IHT) 

Express  as  an  integer.  The  radix  point  is  implicit.  If  there  are  not 
enough  significant  places  then  insignificant  digits  will  be  flagged.  For  example, 
6.0238E23  (represented  internally  as  a  7  digit  FLONUM)  would  be  printed  as 

6023800«»«««»««»#»»»«»»» 

(RAT  n) 

Express  as  a  rational  fraction,  n  specifies  the  largest  denominator  to  be 
used  in  constructing  a  rational  approximation  to  the  number  being  expressed. 
If  n  is  omitted  it  defaults  to  infinity. 

(FIX  n) 

Express  with  a  fixed  radix  point,  n  specifies  the  number  of  places  to  the 
right  of  the  radix  point,  n  defaults  to  the  size  of  a  smgle-precision  FLONUM.  If 
there  are  not  enough  significant  places,  then  insignificant  digits  will  be  flagged. 
For  example,  6.0238E23  (represented  internally  as  a  7  digit  FLONUM)  would 
be  printed  with  a  (FIX  2)  format  as  6023800»««»«»«««»»»»«#i» . «« 

(FLO  n) 

Express  with  a  floating  radix  point,  n  specifies  the  total  number  of  places 
to  be  displayed,  n  defaults  to  the  size  of  a  single-precision  FLONUM.  If  the 
number  is  out  of  range,  it  is  converted  to  (SCI).  (FLO  H)  allows  the  system 
to  express  a  FLO  heuristically  for  human  consumption. 

(SCI  n  m) 

Express  in  exponential  notation,  n  specifies  the  total  number  of  places  to 
be  displayed,  n  defaults  to  the  size  of  a  single-precision  FLONUM.  m  specifies 
the  number  of  places  to  the  right  of  the  radix  point,  m  defaults  to  n-1.  (SCI 
H)  does  heuristic  expression. 

(RECT  r  0 

Express  as  a  rectangular  form  complex  number,  r  and  t  are  formats  for 
the  real  and  imaginary  parts  respectively.  They  default  to  (HEUR) . 
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(POLAR  m  a) 

Express  as  a  polar  form  complex  number,  tn  and  a  are  formats  for  the 
magnitude  and  angle  respectively,  m  and  a  default  to  (HEUR) . 

(HEUR) 

Express  heuristically  using  the  minimum  number  of  digits  required  to 
get  an  expression  that  when  coerced  back  to  a  number  produces  the  original 
machine  representation.  EXACT  numbers  are  expressed  as  (INT)  or  (RAT). 
INEXACT  numbers  are  expressed  as  (FLO  H)  or  (SCI  H)  depending  on  their 
range.  Complex  numbers  are  expressed  in  (RECT) .  This  is  the  normal  default 
of  the  system  printer. 

The  following  modifiers  may  be  added  to  a  numerical  format  specification: 
(EXACTNESS  s) 

This  controls  the  expression  of  the  exactness  label  of  a  number,  a  indi¬ 
cates  whether  the  exactness  is  to  be  E  (expressed)  or  S  (suppressed),  a  defaults 
to  E.  If  no  exactness  modifier  is  specified  for  a  format  then  the  exactness  is 
by  default  not  expressed. 

(RADIX  r  a) 

This  forces  a  number  to  be  expressed  in  the  reulix  r.  r  may  be  the  symbol 
B  (binary),  0  (octal),  0  (decimal),  or  X  (hex),  a  indicates  whether  the  radix 
label  is  to  be  E  (expressed)  or  S  (suppressed),  a  defaults  to  E.  If  no  radix 
modifier  is  specified  then  the  default  is  decimal  and  the  label  is  suppressed. 
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n.7  Characters 

Characters  are  written  using  the  #\  notation  of  Common  Lisp.  For  ex¬ 
ample: 


#\a 

;  lower  case  letter 

#\A 

;  upper  case  letter 

•\( 

;  the  left  parentheses  as  a  character 

*\ 

;  the  apace  character 

#\8pace 

;  the  preferred  way  to  write  a  space 

#\newllne 

;  the  newline  character 

Characters  written  in  the  •\  notation  are  self-evaluating.  That  is,  they  do  ^ 

not  have  to  be  quoted  in  programs.  The  tf\  notation  is  not  an  essential  part 

of  Scheme,  however.  Even  implementations  that  support  the  *\  notation  for 

input  do  not  have  to  support  it  for  output,  and  there  is  no  requirement  that  ! 

the  data  type  of  characters  be  disjoint  from  data  types  such  as  integers  or 

strings.  | 

i 

Some  of  the  procedures  that  operate  on  characters  ignore  the  difference  be¬ 
tween  upper  case  and  lower  case.  The  procedures  that  ignore  case  have  the 
suffix  *-ci*  (for  *case  insensitive”).  If  the  operation  is  a  predicate,  then  the  l 

”~ci”  suffix  precedes  the  ”?”  at  the  end  of  the  name. 


(char?  obj)  essential  procedure 

Returns  f  Itrue  if  obj  is  a  character,  otherwise  returns  #!false. 

(char=?  eharl  chart)  essential  procedure 

(char<?  eharl  chart)  essential  procedure 

(char>?  eharl  chart)  essential  procedure 

(char<=7  eharl  chart)  essential  procedure 

(char>=?  eharl  chart)  essential  procedure 

Both  eharl  and  chart  must  be  characters.  These  procedures  impose 
a  total  ordering  on  the  set  of  characters.  It  is  guaranteed  that  under  this 
ordering: 

•  The  upper  case  characters  are  in  order.  For  example,  (char<?  #\A 
#\B)  returns  iltrue. 

•  The  lower  case  characters  are  in  order.  For  example,  (char<?  #\a  #\b) 
returns  #  I  true. 


•  The  digits  are  in  order.  For  example,  (char<?  #\0  #\0)  returns#!  true. 

•  Either  all  the  digits  precede  all  the  upper  case  letters,  or  vice  versa. 

•  Either  all  the  digits  precede  all  the  lower  case  letters,  or  vice  versa. 


1  \ . 


.•  . 
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Some  implementations  may  generalize  these  procedures  to  take  more  than  two 
arguments,  as  with  the  corresponding  numeric  predicates. 

(char-ci=?  charl  ekarS)  procedure 

(char-ci<?  charl  charS)  procedure 

(charH:i>?  charl  char2)  procedure 

(char-ci<=?  charl  charB)  procedure 

(char-ci>=?  charl  char2)  procedure 

Both  charl  and  char2  must  be  characters.  These  procedures  are  similar  to 
char>?  et  cetera,  but  they  treat  upper  case  and  lower  case  letters  as  the  same. 
For  example,  (ehar-cl«?  #\A  *\a)  returns  #  I  true.  Some  implementations 
may  generalize  these  procedures  to  take  more  than  two  arguments,  as  with 
the  corresponding  arithmetic  predicates. 


(char-upper-case?  char') 
(char-loiwer-case?  char) 
(char-alphabetic?  char) 
(char-numeric?  char) 
(char-whitespace?  char) 


procedure 

procedure 

procedure 

procedure 

procedure 


Char  must  be  a  character  These  procedures  return  *  I  true  if  their  argu¬ 
ments  are  upper  case,  lower  case,  alphabetic,  numeric,  or  whitespace  char¬ 
acters,  respectively,  otherwise  they  return  fllalse.  The  following  remarks, 
which  are  specific  to  the  ASCII  character  set,  are  intended  only  as  a  guide. 
The  alphabetic  characters  are  the  52  upper  and  lower  case  letters.  The  nu¬ 
meric  characters  are  the  10  decimal  digits.  The  whitespace  characters  are  tab, 
line  feed,  form  feed,  carriage  return,  and  space. 

(char->iuteger  char)  essential  procedure 

(integer->char  n)  essential  procedure 

Given  a  character,  char->integer  returns  an  integer  representation  of 
the  character.  Given  an  integer  that  is  the  image  of  a  character  under  char- 
>lnteger,  integer->char  returns  a  character.  These  procedures  implement 
order  isomorphisms  between  the  set  of  characters  under  the  char<*?  ordering 
and  the  set  of  integers  under  the  <■?  ordering.  That  is,  if 

(char<«?  a  b)  -->  #  I  true 

(<•?  X  y)  — >  fltzue 

and  X  and  y  are  in  the  range  of  char->integer,  then 
(<■?  (char->integer  o) 

(char->integer  b))  -->  « I  true 

(char<«?  (lnteger->char  x) 

(lnteger->char  y))  -->  # I  true 


« I  true 
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(char-upcase  char')  procedure 

(char-downcase  char)  procedure 

char  must  be  a  character.  These  procedures  return  a  character  char2 
such  that  (chu-ci"?  char  eharS).  In  addition,  if  char  is  alphabetic,  then 
the  result  of  char-upcase  is  upper  case  and  the  result  of  char-downcase  is 
lower  case. 
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n.8.  Strings 

Strings  are  sequences  of  characters.  In  some  implementations  of  Scheme 
they  are  inunutable;  other  implementations  provide  destructive  procedures 
such  as  string- set  I  that  alter  string  objects. 

Strings  are  written  as  sequences  of  characters  enclosed  within  doublequotes 
(").  A  doublequote  can  be  written  inside  a  string  only  by  escaping  it  with  a 
backslash  (\),  as  in 

"The  word  \"Recur8lon\"  has  aany  different  seanings." 

A  backslash  can  be  written  inside  a  string  only  by  escaping  it  with  another 
backslash.  Scheme  does  not  specify  the  effect  of  a  backslash  within  a  string 
that  is  not  followed  by  a  doublequote  or  backslash. 

A  string  may  continue  from  one  line  to  the  next,  but  this  is  usually  a  bad  idea 
because  the  exact  effect  varies  from  one  computer  system  to  another. 

The  length  of  a  string  is  the  number  of  characters  that  it  contains.  This 
number  is  a  non-negative  integer  that  is  fixed  when  the  string  is  created.  The 
valid  indexes  of  a  string  are  the  nonnegative  integers  less  than  the  length  of 
the  string.  The  first  character  of  a  string  has  index  0,  the  second  has  index 
1,  and  so  on. 

In  phrases  such  as  “the  characters  of  string  beginning  with  index  start  and 
ending  with  index  end,”  it  is  understood  that  the  index  start  is  inclusive,  and 
the  index  end  is  exclusive.  Thus  if  start  wd  end  are  the  same  index,  a  null 
substring  is  referred  to,  and  if  start  is  zero  and  end  is  the  length  of  string, 
then  the  entire  string  is  referred  to. 

Some  of  the  procedures  that  operate  on  strings  ignore  the  difference  between 
upper  and  lower  case.  The  versions  that  ignore  case  have  the  suffix  “-ci” 
(for  “case  insensitive”).  If  the  operation  is  a  predicate,  then  the  “-ci”  suffix 
precedes  the  “?”  at  the  end  of  the  name. 

(string?  obj)  essential  procedure 

Returns  #  I  true  if  obj  is  a  string,  otherwise  returns  *)f  alse. 

(string-null7«trtn;)  essential  procedure 

string  must  be  a  string.  Returns  #  I  true  if  string  has  zero  length,  other¬ 
wise  returns  fifalse. 
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(8triiig=?  atrxngl  atringS)  essential  procedure 

(striiig-ci=?  atringl  atringS)  procedure 

Returns  #!true  if  the  two  strings  are  the  same  length  and  contain  the 
same  characters  in  the  same  positions,  otherwise  returns  #!false.  string- 
ci»?  treats  upper  and  lower  case  letters  as  though  they  were  the  same  char¬ 
acter,  but  string*?  treats  upper  and  lower  case  as  distinct  characters. 


(strmg<?  atringl  atringS) 
(stri]ig>?  atringl  atringS) 
(string<=?  atringl  atringS) 
(string>=?  atringl  atringS) 
(string-ci<?  atringl  atringS) 
(striiig-ci>?  atringl  atringS) 
(8tiing-ci<=?  atringl  atringS) 
(8tiing-ci>=?  atringl  atringS) 


essential  procedure 
essential  procedure 
essential  procedure 
essential  procedure 
procedure 
procedure 
procedure 
procedure 


These  procedures  are  the  lexicographic  extensions  to  strings  of  the  corre¬ 
sponding  orderings  on  characters.  For  example,  string<?  is  the  lexicographic 
ordering  on  strings  induced  by  the  ordering  char<?  on  characters.  Some 
implementations  may  generalize  these  and  the  string*?  and  string-ci*? 
procedures  to  take  more  than  two  arguments. 


(make-string  n)  procedure 

(make-string  n  char)  procedure 

n  must  be  a  non-negative  integer,  and  char  must  be  a  character.  Returns 
a  newly  allocated  string  of  length  n.  If  char  is  given,  then  zJl  elements  of 
the  string  are  initialized  to  char,  otherwise  the  contents  of  the  atring  are 
unspecified. 


(string-length  atring)  essential  procedure 

Returns  the  number  of  characters  in  the  given  atring. 

(string-ref  atring  n)  essential  procedure 

n  must  be  a  nonnegative  integer  less  than  the  string-length  of  atring. 
Returns  character  n  using  zero-origin  indexing. 

(substring  atring  atart  end)  essential  procedure 

atring  must  be  a  string,  and  atart  and  end  must  be  valid  indexes  of  atring 
with  atart  <*  end.  Returns  a  newly  allocated  string  formed  from  the  characters 
of  atring  beginning  with  index  atart  and  ending  with  index  end. 
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(stzing-append  atringl  atringS)  essential  procedure 

(string-append  atringl  ...)  procedure 

Returns  a  new  string  whose  characters  form  the  catenation  of  the  given 
strings. 

(string->list  atring)  essential  procedure 

(list->string  chara)  essential  procedure 

string->list  returns  a  list  of  the  characters  that  make  up  the  given 

string.  Ii8t->strlng  returns  a  string  formed  from  the  proper  list  of  char¬ 
acters  chara.  Btring->list  and  list->string  are  inverses  so  far  as  equal? 
is  concerned.  Implementations  that  provide  destructive  operations  on  strings 
should  ensure  that  the  results  of  these  procedures  are  newly  allocated  objects. 

(string-set!  atring  n  char)  procedure 

atring  must  be  a  string,  n  must  be  a  valid  index  of  atring,  and  char  must 
be  a  character.  Stores  char  in  element  n  of  atring  and  returns  an  unspecified 
value. 


(string-fill!  atring  char)  procedure 

Stores  char  in  every  element  of  the  given  atring  and  returns  an  unspecified 
value. 


(string-copy  atring)  procedure 

Returns  a  newly  allocated  copy  of  the  given  atring. 

(substring-fill!  atring  atart  end  char)  procedure 

Stores  char  in  elements  atart  through  end  of  the  given  atring  and  returns 
an  unspecified  value. 

(substring-move-right!  al  ml  nl  a2  m2)  procedure 

(substring-move-left!  al  ml  nl  s2  m2)  procedure 

al  and  a2  must  be  strings,  ml  and  nl  must  be  valid  indexes  of  al  with 
ml  <■  nl  and  m2  must  be  a  valid  index  of  a2.  These  procedures  store  the 
elements  ml  through  nl  of  al  into  the  string  a2  starting  at  element  m2  and 
return  an  unspecified  value. 

The  procedures  differ  only  when  al  and  a2  are  eq?  and  the  substring  being 
moved  overlaps  the  substring  being  replaced.  In  this  case,  substrlng-nove- 
right  i  copies  serially,  starting  with  the  rightmost  element  and  proceeding  to 
the  left,  while  substring-move-left  I  begins  with  the  leftmost  element  and 
proceeds  to  the  right. 
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n.9.  Vectors 

Vectors  are  heterogenous  mutable  structures  whose  elements  are  indexed 
by  integers.  The  first  element  in  a  vector  is  indexed  by  zero,  and  the  last 
element  is  indexed  by  one  less  than  the  length  of  the  vector.  A  vector  of  length 
3  containing  the  number  zero  in  element  0,  the  Ust  (2  2  2  2)  in  element  1, 
and  the  string  “Anna”  in  element  2  can  be  written  as  *(0  (2  2  2  2)  "Anna") 

Implementations  are  not  required  to  support  this  notation. 

Vectors  are  created  by  the  constructor  procedure  nake-vector.  The  elements 
are  accessed  and  assigned  by  the  procedures  vector-ref  and  vector-set!. 

(vector?  obj)  essential  procedure 

Returns  *  I  true  if  obj  is  a  vector,  otherwise  returns  *lf  alse. 

(make-vector  size)  essential  procedure 

(make-vector  size  fUl)  procedure 

Returns  a  newly  allocated  vector  of  size  elements.  If  a  second  argument 
is  given,  then  each  element  is  initialized  to  fUL  Otherwise  the  initial  contents 
of  each  element  b  unspecified. 

(vector  obj  . . .)  essential  procedure 

Returns  a  newly  allocated  vector  whose  elements  contain  the  given  argu¬ 
ments.  Analogous  to  list. 

(vector  'a  ’b  ’c)  — >  «(a  b  c) 

(vector-length  vee)  essential  procedure 

Returns  the  number  of  elements  in  the  vector  vee. 

(vector-ref  vee  k)  essential  procedure 

Returns  the  contents  of  element  i  of  the  vector  vec.  i  must  be  a  nonneg¬ 

ative  integer  less  than  (vector- length  vec). 

(vector-ref  ’«(1  1  2  3  5  8  13  21)  5)  — >  8 

(vector-set!  vee  k  obj)  essential  procedure 

Stores  obj  in  element  k  of  the  vector  vee.  k  must  be  a  nonnegative  integer 
less  than  (vector- length  vec).  The  value  returned  by  vector-set!  is  not 
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specified. 

(let  ((vec  '«(0  (2222)  "Anna"))) 

(vector-set I  vec  1  *("Sue"  "Sue")) 

vec)  -->  #(o 

("Sue"  "Sue") 
"Anna") 

(vector->list  eec)  essential  procedure 

Returns  a  list  of  the  objects  contained  in  the  elements  of  vec.  See 
list->vector. 

(vector->llst  *i(dah  dah  didah))  — >  (dah  dah  didah) 

(li8t->vector  e/<«)  essential  procedure 

Returns  a  newly  created  vector  whose  elements  are  initialized  to  the 
elements  of  the  proper  list  elta. 

(ll8t->vector  ‘(dididit  dah))  — >  «(didldit  dah) 

(vector-fill!  vec  fill)  procedure 

Stores  fill  in  every  element  of  the  vector  vee.  The  value  returned  by 
vector-mil  is  not  specified. 


••  -S  .Ni  •.  _N 
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n.11.  Procedures 


Procedures  are  created  when  lambda  expressions  are  evaluated.  Proce¬ 
dures  do  not  have  a  standard  printed  representation. 

The  most  common  thing  to  do  with  a  procedure  is  to  call  it  with  zero  or  more 
arguments.  A  Scheme  procedure  may  also  be  stored  in  data  structures  or 
passed  as  an  argument  to  procedures  such  as  those  described  below. 

(apply  proc  argsi  essential  procedure 

(apply  proc  argl  ...  args)  procedure 

proe  must  be  a  procedure  and  args  must  be  a  proper  list  of  arguments. 
The  first  (essential)  form  calls  proe  with  the  elements  of  args  as  the  actual 
arguments.  The  second  form  is  a  generalization  of  the  first  that  calls  proe 
with  the  elements  of  (append  (list  argl  . ..)  args)  as  the  actual  arguments. 

(apply  ♦  (list  34))  — >  7 

(define  eoapose 
(lambda  (1  g) 

(lambda  args 

(1  (apply  g  args)))))  — >  unspecified 

((compose  1+  •)  3  4)  — >  13 


(map  /  plist)  essential  procedure 

(map  /  plistl  plistB  . . .)  procedure 

/  must  be  a  procedure  of  one  argument  and  the  plists  must  be  proper 
lists.  If  more  than  one  pKst  is  given,  then  they  should  all  be  the  same  length. 
Applies  f  element-wise  to  the  elements  of  the  plists  and  returns  a  list  of  the 
results.  The  order  in  which  /  is  applied  to  the  elements  of  the  plists  is  not 
specified. 

(map  cadr  '((a  b)  (d  e)  (g  h)))  -->  (b  e  h) 

(nap  (lambda  (n)  (expt  n  n)) 

*(12345))  — >  (1  4  27  256  3125) 

(nap  +  '(123)  '(45  6))  — >  (5  7  0) 

(let  ((count  0)) 

(map  (lambda  (ignored) 

(set I  count  (!■»'  count)) 
count) 

’(a  b  c))) 


— >  unspecified 
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(for^^ch  /  pliat)  essential  procedure 

(for-each  /  plistl  plistt  . . .)  procedure 

The  arguments  to  f  or*eacli  are  like  the  arguments  to  nap,  but  lor-each 
calls  /  for  its  side  effects  rather  than  for  its  values.  Unlike  nap,  for-each  is 
guaranteed  to  call  fan  the  elements  of  the  pliata  in  order  from  the  first  element 
to  the  last,  and  the  value  returned  by  for-each  is  not  specified. 

(let  ((v  (nake-vector  6))) 

(for-each  (lambda  (i) 

(vector-setl  v  i  (*  i  i))) 

*(01234)) 

v)  — >  #(0149  16) 


(call-with-current-continuation  /)  essential  procedure 

/must  be  a  procedure  of  one  argument,  call-with-cnrrent-continuation 
packages  up  the  current  continuation  (see  the  Rationale  below)  as  an  “escape 
procedure”  and  passes  it  as  an  argument  to  /.  The  escape  procedure  is  an  ordi¬ 
nary  Scheme  procedure  of  one  argument  that,  if  it  is  later  passed  a  value,  will 
ignore  whatever  continuation  is  in  effect  at  that  later  time  and  will  give  the 
value  instead  to  the  continuation  that  was  in  effect  when  the  escape  procedure 
was  created. 


The  escape  procedure  created  by  call-with-current-continuation  has  un¬ 
limited  extent  just  like  any  other  procedure  in  Scheme.  It  may  be  stored  in 
variables  or  data  structures  and  may  be  called  as  many  times  as  desired. 

The  following  examples  show  only  the  most  common  uses  of  call-with- 
current-continuation.  If  all  real  programs  were  as  simple  as  these  exam¬ 
ples,  there  would  be  no  need  for  a  procedure  with  the  power  of  call-with- 
current-continuation. 

(call-with-current-continuation 
(lanbda  (exit) 

(for-each  (lanbda  (x) 

(if  (negative?  x) 

(exit  x))) 

'(64  0  37  -3  245  19)) 


# I true)) 


— >  -3 
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(define  list-length 
(lunbda  (obj) 

(call-with-current-continuation 
(laabda  (retnrn) 

((ree  loop  (lambda  (obj) 

(cond  ((null?  obj)  0) 

((pair?  obj) 

(1+  (loop  (cdr  obj)))) 
(else  (return  tifalse))))) 

obj))))) 

-->  list-length 

(list-length  *(123  4))  -->  4 

(list-length  ' (a  b  .  c))  — >  #!false 


Rationale:  The  classic  use  of  call-with-current-continuation  is  for  struc¬ 
tured,  non-local  exits  from  loops  or  procedure  bodies,  but  in  fact  call-with- 
current-continuation  is  extremely  useful  for  implementing  a  wide  variety 
of  advanced  control  structures. 


Whenever  a  Scheme  expression  is  evaluated  there  is  a  continuation  wanting 
the  result  of  the  expression.  The  continuation  represents  an  entire  (default) 
future  for  the  computation.  If  the  expression  is  evaluated  at  top  level,  for 
example,  then  the  continuation  will  take  the  result,  print  it  on  the  screen, 
prompt  for  the  next  input,  evaluate  it,  and  so  on  forever.  Most  of  the  time 
the  continuation  includes  acticms  specified  by  user  code,  as  in  a  continuation 
that  will  take  the  result,  multiply  it  by  the  value  stored  in  a  local  variable, 
add  seven,  and  give  the  answer  to  the  top  level  continuation  to  be  printed. 
Normally  these  ubiquitous  continuations  are  hidden  behind  the  scenes  and 
programmers  don’t  think  much  about  them.  On  rare  occasions,  however,  when 
programmers  need  to  do  something  fancy,  then  they  may  need  to  deal  with 
continuations  explicitly,  call-with-current-continuation  allows  Scheme 
programmers  to  do  that  by  creating  a  procedure  that  acts  just  like  the  current 
continuation. 


Most  serious  programming  languages  incorporate  one  or  more  special  purpose 
escape  constructs  with  names  like  exit,  return,  or  even  goto.  In  1965, 
however,  Peter  Landin  invented  a  general  purpose  escape  operator  called  the 
J-operator.  John  Reynolds  described  a  simpler  but  equally  powerful  construct 
in  1972.  The  catch  special  form  described  by  Sussman  and  Steele  in  the  1975 
report  on  Scheme  is  exactly  the  same  as  Reynolds’s  construct,  though  its  name 
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came  from  a  leas  general  construct  in  MacLup.  The  fact  that  the  full  power 
of  Scheme’s  catch  could  be  obtained  using  a  procedure  rather  than  a  special 
form  was  noticed  in  1982  by  the  implementors  of  Scheme  311,  and  the  name 
call-with~current~contlnuation  was  coined  later  that  year.  Although  the 
name  is  descriptive,  some  people  feel  it  is  too  long  and  have  taken  to  calling 
the  procedure  call/cc. 


V. 


i 
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Ports  represent  input  and  output  devices.  To  Scheme,  an  input  device  is 
a  Scheme  object  that  can  deliver  characters  upon  command,  while  an  output 
device  is  a  Scheme  object  that  can  accept  characters. 

(call-with-input-file  etring  proe)  essential  procedure 

(call-with-output-file  string  proc)  essential  procedure 

Proc  is  a  procedure  of  one  argument,  and  string  is  a  string  naming  a 
file.  For  call-with- input -file,  the  file  must  already  exist;  for  call'With- 
output'llle,  the  effect  is  unspecified  if  the  file  already  exists.  Calls  proc 
with  one  argument:  the  port  obtained  by  opening  the  named  file  for  input  or 
output.  If  the  file  cannot  be  opened,  an  error  is  signalled.  If  the  procedure 
returns,  then  the  port  is  closed  automatically  and  the  value  yielded  by  the 
procedure  is  returned.  If  the  procedure  does  not  return,  then  Scheme  will  not 
close  the  port  unless  it  can  prove  that  the  port  will  never  again  be  used  for  a 
read  or  write  operation. 

Rationale:  Because  Scheme’s  escape  procedures  have  unlimited  extent,  it  is 
possible  to  escape  from  the  current  continuation  but  later  to  escape  back 
in.  If  implementations  were  permitted  to  close  the  port  on  any  escape  &om 
the  current  continuation,  then  it  would  be  impossible  to  write  portable  code 
using  both  call-wlth-current>continuation  and  call -with- input -port 
or  call-with-output-port. 

(input-port?  obj)  essential  procedure 

(output-port?  obf)  essential  procedure 

Returns  #  I  true  if  obj  is  an  input  port  or  output  port  (respectively), 
otherwise  returns  # liaise. 


(current-input-port) 

(current-output-port ) 

Returns  the  current  default  input  or  output  port. 


essential  procedure 
essential  procedure 


(with-input-from-file  string  thunk)  procedure 

(with-output-to-file  string  thunk)  procedure 

thunk  is  a  procedure  of  no  arguments,  and  string  is  a  string  naming  a  file. 
For  wlth-input-irom-lile,  the  file  must  already  exist;  for  with-output- 
to-iile,  the  effect  is  unspecified  if  the  file  already  exists.  The  file  is  opened 
for  input  or  output,  an  input  or  output  port  connected  to  it  is  made  the 
default  value  returned  by  current-input-port  or  current-output-port. 
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and  the  thunk  is  called  with  no  arguments.  When  the  thunk  returns,  the 
port  is  closed  and  the  previous  default  is  restored,  with-input-from-lile 
and  with-outpnt-to-lile  return  the  value  yielded  by  thunk.  Furthermore, 
in  contrast  to  call-wlth-inpnt'lile  and  call-with-ontput-lile,  these 
procedures  will  attempt  to  close  the  default  port  and  restore  the  previous 
default  whenever  the  current  continuation  changes  in  such  a  way  as  to  make 
it  doubtful  that  the  thunk  wUl  ever  return. 

(open-input-file  filename)  procedure 

Takes  a  string  naming  an  existing  file  and  returns  an  input  port  capable 
of  delivering  characters  from  the  file.  If  the  file  cannot  be  opened,  an  error  is 
signalled. 

(open-output-file  filename)  procedure 

Takes  a  string  naming  an  output  file  to  be  created  and  returns  an  output 
port  capable  of  writing  characters  to  a  new  file  by  that  name.  If  the  file  cannot 
be  opened,  an  error  is  signalled.  If  a  file  with  the  given  name  already  exists, 
the  effect  is  unspecified. 

(close-input-port  port)  procedure 

(close-output-port  port)  procedure 

Closes  the  file  associated  with  port,  rendering  the  port  incapable  of  deliv¬ 
ering  or  accepting  characters.  The  value  returned  is  not  specified. 
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n.13.  Input 

The  read  procedure  converts  written  representations  of  Scheme  objects 
into  the  objects  themselves.  The  written  representations  for  Scheme  objects 
are  described  in  the  sections  devoted  to  the  operations  on  those  objects. 

(eof-object?  obj)  essential  procedure 

Returns  fitrue  if  obj  is  an  end  of  file  object,  otherwise  returns  #  liaise. 
The  precise  set  of  end  of  file  objects  will  vary  among  implementations,  but  in 
any  case  no  end  of  file  object  will  ever  be  a  chuacter  or  an  object  that  czui 
be  read  in  using  read. 

(read)  essential  procedure 

(read  port)  essential  procedure 

Returns  the  next  object  parsable  firom  the  given  input  port,  updating  port 
to  point  to  the  first  character  past  the  end  of  the  written  representation  of  the 
object.  If  an  end  of  file  is  encountered  in  the  input  before  any  dtaracters  are 
found  that  can  begin  an  object,  then  an  end  of  file  object  is  returned.  If  an  end 
of  file  is  encountered  after  the  beginning  of  an  object’s  written  representation, 
but  the  written  representation  is  incomplete  and  therefore  not  parsable,  an 
error  is  signalled.  The  port  argument  may  be  omitted,  in  which  case  it  defaults 
to  the  value  returned  by  current-input-port. 

Rationale:  This  corresponds  to  Common  Lisp’s  read-preserving-whitespace 
but  for  simplicity  it  is  never  an  error  to  encounter  end  of  file  except  in  the 
middle  of  an  object. 


(read-char)  essential  procedure 

(read-char  port)  essential  procedure 

Returns  the  next  character  available  from  the  input  port,  updating  the 
port  to  point  to  the  following  character.  If  no  more  characters  are  available, 
an  end  of  file  object  is  returned,  port  may  be  omitted,  in  which  case  it  defaults 
to  the  value  returned  by  cnrrent-input-port. 

(char-ready?)  procedure 

(char-ready?  port)  procedure 

Returns  #  I  true  if  a  character  is  ready  on  the  input  port  and  returns 
fifalse  otherwise.  If  char-ready  returns  # I  true  then  the  next  read-char 
operation  on  the  given  port  is  guaranteed  not  to  hang.  If  the  port  is  at  end  of 
file  then  char-ready?  returns  #!true.  port  may  be  omitted,  in  which  case  it 
defaults  to  the  value  returned  by  current-input-port. 
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Rationale:  char-ready?  exists  to  make  it  possible  for  a  program  to  accept 
characters  from  interactive  ports  without  getting  stuck  waiting  for  input.  Any 
rubout  handlers  associated  with  such  ports  must  ensure  that  characters  whose 
existence  has  been  asserted  by  char-ready?  cannot  be  rubbed  out.  If  char- 
ready?  were  to  return  *  liaise  at  end  of  file,  a  port  at  end  of  file  would  be 
indistinguishable  from  an  interactive  port  that  has  no  ready  characters. 

(load  filename)  essential  procedure 

filename  should  be  a  string  naming  an  existing  file  containing  Scheme 
source  code.  The  load  procedure  reads  expressions  from  the  file  and  evaluates 
them  sequentially  as  though  they  had  been  typed  interactively.  It  is  not 
specified  whether  the  results  of  the  expressions  are  printed,  however.  The 
load  procedure  does  not  affect  the  values  returned  by  current- input -port 
and  current-output-port,  load  returns  an  unspecified  value. 

Rationale:  For  portability  load  must  operate  on  source  files.  Its  operation  on 
other  kinds  of  files  necessarily  varies  among  implementations. 
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n.14.  Output 


(write  obj)  essential  procedure 

(write  obj  port)  essential  procedure 

Writes  a  representation  of  obj  to  the  given  port.  Strings  that  appear  in  the 
written  representation  are  enclosed  in  doublequotes,  and  within  those  strings 
backslash  and  doublequote  characters  are  escaped  by  backslashes,  write  re¬ 
turns  an  unspecified  value.  The  port  argument  may  be  omitted,  in  which  case 
it  defaults  to  the  value  returned  by  current-output-port.  See  display. 

(display  obj)  essential  procedure 

(display  obj  port)  essential  procedure 

Writes  a  representation  of  obj  to  the  given  port.  Strings  that  appear  in 
the  written  representation  are  not  enclosed  in  doublequotes,  and  no  characters 
are  escaped  within  those  strings,  display  returns  an  unspecified  value.  The 
port  argument  may  be  omitted,  in  which  case  it  defaults  to  the  value  returned 
by  current-output-port.  See  write. 

Rationale:  Like  Conunon  Lisp’s  print  and  princ,  write  is  for  producing 
machine-readable  output  and  display  is  for  producing  human-readable  out¬ 
put.  Implementations  that  allow  *slashificstion”  within  symbols  will  probably 
want  write  but  not  display  to  slashify  funny  characters  in  symbols. 

(newline)  essential  procedure 

(newline  port)  essential  procedure 

Writes  an  end  of  line  to  port.  Exactly  how  this  is  done  differs  from 
one  operating  system  to  another.  Returns  an  unspecified  value.  The  port 
argument  may  be  omitted,  in  which  case  it  defaults  to  the  value  returned  by 
c  urrent - output -port . 


(write-char  char)  essential  procedure 

(write-char  char  port)  essential  procedure 

Writes  the  character  char  (not  a  written  representation  of  the  char2u:ter) 
to  the  given  port  and  returns  an  unspecified  value.  The  port  argument  may  be 
omitted,  in  which  case  it  defaults  to  the  value  returned  by  current -output - 
port. 
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(transcript-on  filename)  procedure 

(transcript-off)  procedure 

Filename  must  be  a  string  naming  an  output  file  to  be  created.  The 
effect  of  transcript-on  is  to  open  the  named  file  for  output,  and  to  cause  a 
transcript  of  subsequent  interaction  between  the  user  and  the  Scheme  system 
to  be  written  to  the  file.  The  transcript  is  ended  by  a  call  to  transcript- 
oil,  which  closes  the  transcript  file.  Only  one  transcript  may  be  in  progress 
at  any  time,  though  some  implementations  may  relax  this  restriction.  The 
values  returned  by  these  procedures  are  unspecified. 


Rationale:  These  procedures  are  redundant  in  some  systems,  but  systems  that 
need  them  should  provide  them. 
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